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HAPPY  NEVv  YEAR! 

Subscritlons  are  pooring  In! 
Fender  Tucker  of  LOADSTAR  did  a 
vrite  up  on  us  and  all  he  had  to  3a»j 
about  our  Flyer  vas  good  stuff,  if 
you  do  not  yet  subscribe  to 
LOADSTAR,  by  all  means  do  so.  It  Is 
highly  recomended,  see  October  92 
issue  for  REVCW. 

I  knov  there  are  lots  of  64  and 
128  stuff  like  this  that  is  around,  but 
I  don't  vant  to  forget  our  readers 
vho  have  20s,  16s,  43,  PETs  and 
CBMs.  As  you  knov  ve  have  no  PETs 
or  CBMs  he^-e  to  work  with,  but  If 
you  program  for  these  machines  send 
us  some  stuff  and  we'll  take  a  took. 
We  can  run  some  of  them  with 
emulators.  V/e  have  BASIC  2,  3.5,  4, 
and  7.  Are  there  any  specialty  groups 
out  there  for  the  20,  16,  4,  PET  or 
CBM?  Write  us  and  let  us  know, 
we'll  put  your  contact  joints  (address 
and  phone)  into  our  Rarities  column. 

Speaking  of  Rtritfes,  this 
month  we  feature  the  Treasure 
'valley/Boise  User  Grot^).  This  is  a 
good  place  to  start,  while  v/e  are 
reaching  out  to  more  places  across 
the  contry,  v/e  need  to  get  the  bell 
rolling  now  on  our  LIST.  TV/BUG  is 
near  by  and  I  know  the  President 
personally...  ah,  well,  I  mt  the 
Preseident 

Developers!  Send  us  yoi^  wares 
for  REVIEW!  We'll  get  the  word  out 
to  the  underground.  'We  v/111  review 
shareware! 

'With  the  New  *Vear  comes  new 
angles  and  new  Ideas.  The  Spinner 
is  doing  well,  the  Flyer  is  starting  to 
take  off,  and  we've  a  vast  uncharted 
teritory  to  explore. 

Last  year  the  commodore  64 
turned  10  years  old,  and  I  missed  it. 
Somehow,  I  thought  it  came  out  in 
1983,  probably  because  in  reading  the 
VIC  history  I  read  it  came  out  in  1982. 


I  caught  the  64  bug  in  '83.  When  I  got 
my  second  computer,  a  commodore 
64,  I  called  it  Noesis  Leopard 
(pronounced  Leo  pard  —  ryhmes  with 
bard),  named  after  the  Greek  God  of 
Inteliegence.  Noesis  died  of  sinlllty  less 
than  a  year  latter.  Noesis  was 
'refurbished." 

Noesis  Leopard  II  is  fairing  well,  he's 
got  a  bad  RF  modulator  that  sends 
pov/er  to  the  VIC  II  v/hen  a  tv  is  plugged 
into  It,  but  other  than  that  he's 
perfectly  normal  I  still  only  had  a  tape 
drive  and  commocbure 

microcemputero  and  Power  Pleg. 

Computel'd  Gezette  came  into  my 
reality.  Around  the  time  I  first  saw 
Uptime  (I  thought  It  was  some  IBM  thing 
—  then  why  did  they  have  a  64 
version?),  there  was  this  other 
magazine  called  RUN.  The  BSU  book 
store  bad  It  and  I  seem  to  remember 
that  it  was  on  disk,  although  looking 
back  that  must  have  been  the  ReRUN 
disk. 

I  persuded  neither.  It  was  not  until 
1988  that  I  recieved  my  first  copy  of 
the  April  issue.  (Just  a  note  here,  I 
have  tv/o  copies  of  that  issue.)  I  trfed 
out  l^ittae  as  well  I  ^t  one  six  Issue 
si^scription  to  ReRUI,  I  wish  I  could 
have  afforded  to  be  a  regular,  but  book 
costs  v/ere  astronomical. 

The  last  few  Issues  of  RUN  were 
rather  small,  but  they  still  managed  to 
pack  a  full  punch  v/lth  readers  letters, 
solid  reviews  and  those  v/onderful 
type-In  pro^^ams.  The  RUN  catalogue 
was  rich  with  64/128  reality. 

I  was  talking  to  the  TV/BUG  librarian, 
Doug  Parsons,  about  what  we  v/ere 
going  to  put  in  our  articles  and  since 
his  was  getting  a  little  large  and  mine 
was  so  dismally  small  he  filled  me  in  on 
some  of  v/hat  he  heard  about  the 
demise  of  RUN.  I  can't  say  these  are 
the  official  facts,  so  bear  that  in  mind. 
RUN  staff  was  just  finishing  the 
.January.^February  issue  when  they  got 


'v/ord  from  IC'G' '  ItUN's' '  parent 
company.  The  subscribers  will  be 
compesated  in  some  way,  probably 
with  alternate  magazine  subscriptions. 
The  RUN  catalogue  v/ill  remain 
available.  As  for  the  RUN  Forum  on 
Q-Link,  no  v/ord  on  that,  although  I 
was  toM  by  a  club  member  that 
nothing  had  been  placed  into  it  since 
1988. 

I  v/onder  of  the  work  that  was  to 
be  the  January/February  Issue.  You'd 
think  if  it  had  been  finished  they'd 
have  let  It  get  released  and  say, 
"Goodbye."  Maybe  they  will  place  it 
into  tte  catalogue. 

RUN  shall  be  missed.  To  the 
writers  and  staff  —  Fare  thee  well 

Phone  Lineo  is  this  month's 
feature  program.  There  are  several 
vertions  of  this  program.  On  the 
Spinner  there  is  a  REMed  out  version 
called  PL  CONVERTION  PG  to  load  and 
convert  how  ever  you  see  fit.  There 
is  also  a  binary  f  ite  called  PHONE  PAC' 
that  you  cari  BLOAD  into  8192  of  a  16, 
+4, 64  or  128. 

We  have  a  si^ial  treat  by  Joel 
Rea  ^d  Jim  Weiler.  The  first 
Installment  of  DOS  AND  DON'TS 
from  LOADSTAR  ^1,  an  article  on 
the  Ins  and  outs  of  CBM-OOS.  Since 
the  actual  contents  of  the  first 
article  is  of  a  historic  nature  It  will 
appear  in  the  commodore  trivie 
column,  I  hope  you  enjoy  it.  It  is  a 
very  enlightening  and  entertaining 
acoimt  of  comm^ore  history. 


Have  a  fantastic 
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[Irian  L  l..rosll"iunilo 

Ihe  nineties  ore  the  nge  of  tnpe 
bazli  up.  For  those  commodore 
owners  uho  ore  forturiole 
enough  to  not  only  houe  o 
Dolassetle,  but  also  to  houe 
gotten  LQRDSIflK  number  10  (or 
houe  gotten  the  ftpril  '8S  issue  of 
tlicrocomputers),  there  ore 
tuo  progroms  by  Lynn  fUnnitl  for 
lope  bockup,  One  progrciiTi  ffiokes 
bockups  of  your  disks  onto  tope 
ond  the  other  reods  the 
information  back  to  diski  (Just 
on  edilorifti  comment  here, 
comoiodore  hod  hord  driues 
long  before  onyone  outside 
business  euer  heord  of  them, 
ond  bock  in  '85  ue  hod  this 
bockup  option  ouoiloble  to  us. 
Although,  bock  then  I  backed  my 
cossettes  up  onto  disk...) 

Dou,  in  Wi.  ue  houe  gone  full 
circle,  uilh  used  equipment 
popping  up  nou  ond  then  -  ond 
used  softuore,  much  of  uhich  is 
on  tope.  I  occosionolly  find  o 
cossette  thot  sporks  my  interest 
at  some  hidden  ouiay  shop 
outside  Soho  or  Bangkok.  But 
they  neuer  come  uilh 
instructions,  so  a  little  hocking 
is  in  order.  So  hou  to  begin... 

Hell,  first  off,  I  load  the 
proorom.  and  since  it  is  either 
for"  the  &'^  or  W.  (these 
Instructions  should  uork  u!th  all 
8bits),  I  just  put  it  in  the 
Dotossette,  close  the  door  ond 
press  reuind  (to  make  sure  the 
tope  is  ot  the  beginning  and  isn't 
loose).    Uhen  the  tope  stops  I 


press  the  stop  button  ond  reset 
the  counter,  flou  I  press  that 
old  r^HIFUHf^Uri/STOP^ 

combinolion.  If  the  computer  is 
n  128  (In  128  mode)  or  o  Flust  or 
16  you  uill  houe  to  simply  type 
LOAD  then  4&M\^,  Lots  of  the 
old  progroms  uere  either  in 
BfiSIC  or  londed  from  o  BRSIC 
progrom  or  machine  language 
program  loaded  ot  the  stort  of 
BASIC. 

first  you'll  see; 

PRESS  PLAV  OH  TAPE 

Upon  pressing  play,  you'll  see: 

OK 
SEARCHING 

On  the  b'f  and  128  the  screen  uill 
just  go  blank  and  you  uill  not  see 
these  messoges  right  ouay.  On 
the  16  ond  riust  you'll  sec  the 
messages  for  a  second  before 
the  screen  blanks.  On  the  PIC 
(the  coolest  of  all)  you  get  to 
see  the  messages  and  no  blanking 
uill  occur.  After  a  feu  seconds 
you  should  seel 

FOUND  FILEHAHE 

flou,  urite  doun  the  file  nome 
Just  OS  you  see  it.  '/ou  moy  houe 
to  hit  slop,  but  you  should  be 
able  to  gel  it  before  ony  auto 
lood  occurs.  If  you  houe  to, 
stort  ouer.  If  oil  goes  uell,  you 
con  press  either  the  -iC:!-  key  or 
hSPACCi-  or  uail  for  the  auto  lood 
(the  computer  uill  just  load  the 
program).  Then  - 

LOAOIHG   FILEHAI1E 

uill  oppeor,  houeuer  brief, 
depending  on  your  machine,  (lou. 


the  cruciol  stage,  you'll  see; 

RUN 

Unless  you  just  typed  LOAD 
olone,  "then  type  RUfI  and 
-iKCIIJfJfhs  Ihe  program  may 
also  run  itself  automatically,  in 
uhlch  case  you  uill  not  see  W, 
nor  uill  you  get  the  oportunity 
to  type  it.  If  the  program  takes 
off,  you're  in  good  shape.  If 
not,  you  moy  need  to  reuind  ond 
start  ouer.  If  you  get  garbage 
uhen  you  type  LISI  and 
•!fiCTUfin^  the  program  is 
probably  a  machine  code  file. 
You  may  houe  to  reset  the 
computer,  either  uilh  the  reset 
suitch  or  turning  the  machine 
off.  Shut  off  for  at  least  2 
seconds;  If  you  uere  doing 
something  prior  lo  this 
operation,  leoue  it  off  for  30 
seconds  then  turn  It  bock  on,  If 
you  don'l  get  garbage  then  you 
may  be  fine. 

If  you  got  garbage,  start  again, 
Insleod  of  using  the 
^SHIfT^HKUn/SIOp!-  to  load,  type 
the  follouing; 

LOAD"FILEHAHE'M,i 

flLCDflflC  is  the  nome  you  urote 
doun  eorlier.  Ihe  first  "1"  Is 
the  deuice  and  the  second  "1"  Is 
0  secondary  address.  Ihis  tells 
the  computer  lo  load  a  progrom 
from  cassette  Into  the  some 
location  in  memory  as  the 
progrom  uas  saued  from.  Host 
mochine  language  programs  ore 
loodcd  this  uoy  to  place  them  In 
the  right  place  In  the 
computer's  memory,  It  uill 
usually  begin  execution  of  the 
program.    It  might  not  -  thot's 


4i«H4r4  iwtm  nn  z 


our  next  step, 

If  the  program  louds  orid  runs  -- 
cool,  lime  to  ploy  with  your  neu 
found  friend.  If,  houeuer  you 
get  the  "fitflDY."  prompt  ond  o 
cursor,  type  U3l  ond  4(M\\^, 
If  nothing  lists  then  you  probobly 
lofided  ok,  if  you  see  n  jumble  of 
grophics  on  the  screen  then 
something  went  urong  --  did  you 
remember  ,,1,1  ofter  the  file 
nome? 

If  you  just  gel  the  "RCflDY," 
prompt,  it's  not  ouer  yet.  Iry 
typing  in  5VS  commands,  fl  good 
guess  to  stort  uilh  might  be 
9(WmZ  (6f)  or  5Y^325S2  (UK), 
5Y530000  (6f)  is  a  frerjuenlly 
used  oddress.  If  the  cnsselte  is 
on  fitciri  gome  for  the  61 
5Y56f?38  is  usuolly  the  stort 
uector.  Use  some  SYS  oddresses 
thot  ore  fomillor  to  your 
mochine,  took  through  mogozine 
type-in  programs  thot  lood 
mochine  code  ond  commerciol 
progroms  for  possible 
oddresses.  If  you  knou  the 
outhor's  nome  ond  houe  other 
programs  by  the  some  person, 
he  or  she  moy  ploce  programs 
into  the  some'  address  out  of 
hobit.  If  you  houe  a  mochine 
language  M\M  you  may  be  abt€ 
to  use  it  to  locate  the  address, 
or  enter  the  progrom  (it  some 
point  of  execution.  -  Hey,  I  sold 
hocking  didn't  I? 

flosl  machine  code  flies  should 
run  from  loading  and  not  o  SYS 
command. 

If  you  don't  get  a  file  name  at  all 
when  you  first  try  to  load,  the 
cassette  may  be  blank  or  be  for 
onother  computer  altogether.  To 
find  out  if  it  has  anything  at  all 


on  it,  just  pop  it  into  on  regulor 
uudio  cijsselte  ployer,  if  there  is 
0  proyrom  on  it  you'll  he  or  o  high 
pitched  squeoling  sound, 

Ihe  12'o,  6f  ond  t'lC  can't  read  o 
cossette  written  by  o  16  or  Plust 
and  visa  uerso  euen  if  you  used 
the  some  Dotossetle  (uith  on 
adopter,  of  course).  So  the  If 
the  computer  con't  find  o  file 
name  ond  the  oudio  test  soys  it's 
n  computer  cassette,  It  may  foil 
into  this  category, 

Of  course,  if  there  is  informolion 
on  the  label  that  tells  you  hou  to 
lood  the  progrom  that's  your 
best  bet.  If  that  doesn't  do  it 
then  the  information  on  the 
cassette  may  be  corrupt. 
Different  uerslons  of  the  some 
program  often  come  on  the  same 
cassette,  i.e.  one  side  UK  and  the 
other  side  6t.  Hoke  sure  you 
houe  the  right  side  up.  Also,  the 
lobels  may  be  on  the  wrong  side 
of  the  cassette;  UK  is  shown  to 
be  on  side  1,  uhen  It  Is  In  fact, 
on  side  two.  Ihis  Is  not  too 
likely,  but  it  could  happen. 

Loading  up  old  unseen  or  long 
forgotten  programs  from 
cassette  con  be  o  fun  and 
sometimes  surprising 

experience,  i  ulsh  you  luck  on 
your  future  glimpses  Into  the 
past-HflPPY 

READV. 


Tip  of  the  Month 

by 
Brian  L  Crosthwaite 

NO  SCROLL  128 

I  hear  people  all  the  time  complaining 
that  the  128*3  no  scroll  key  has  no 
function.  Well,  not  in  my  life!  You 
can  U3e  it  every  day.  I  do.  When  I 
have  to  search  disks  for  a  curtain 
file,  I  go  to  the  128*3  80  column 
screen  with  my  disk  in  the  drive  and 
hit  <F3>.  The  dri-ve  spins  and  the 
display  fills  up  v/ith  the  contents  — 
hold  it,  not  so  fast!  I  don't  have  time 
to  waste,  so  I  don't  want  to  miss  it 
the  first  time.  Holding  the  <C=>  key 
doesTi't  cut  it  for  me  and  I'm  not 
going  to  hit  <STOP>.  I  hit  the  <N0 
SCr6ll>  keg  and  everything  halts 
until  Tm  ready.  I  press  it  again  and 
the  long  directory  moves  on  and 
places  new*  info  onto  the  screea  I 
only  have  to  read  the  directory  once, 
30  I  only  see  the  info  once  and  am 
not  confused  about  where  things  are. 
Nothing  is  lost,  and  if  you  forget  to 
press  it  again  white  accessing  your 
drive,  don't  v/orry,  the  light  v/ill  stay 
on  but  the  motor  will  stop  and  the 
disk  v/ill  stop  spinning.  I  can  also 
control  the  listings  of  n^iy  programs 
when  I'm  looking  at  program  code. 

This  method  along  with  the  <ESC><T> 
combination,  allow  me  to  compare 
directories.  I  just  call  up  the  first 
directory  and  stop  it  where  I  want  it 
to  be  on  the  screen.  I  then  hit 
<HOME>  and  cursor  over  to  the  top 
right  of  the  listing,  hit  <ESC>  then 
S,  swap  disks,  and  read  the  next 
directory,  and  I  can  place  3 
directories  on  screen  at  once,  or  list 
one  long  one. 
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Lots  of  people  houc  osked  me,  "Brion,  uhere  do  you  gel  your  idens?" 

"By  occesslng  deulce  number  3001."  Ihnt's  my  brciln's  deulce  numbef.  flclunlly,  If  I  unnled  n  belter 
deuice-number-kind-of-porodg,  I'd  soy  my  phone  number  --  thol  uoy  people  could  occesi  me  ond  the 
onologoy  would  be  o  little  better.  But  that's  not  whol  we're  tolkin'  about  here,  l-lhot  ore  we  tolking 
nboul  here?  Oeulce  numbers  on  the  commedore  computers.  Here  Is  o  list,  It  mny  differ  from  your 
set  up  OS  euery  ospect  of  the  computer  Is  progrommcible  -  euen  the  unprogrommoble: 

Dcmce Pftvice  Hri 

keyboard 0 

cassette  (illegel  on  SX64  and  0X64> 1 

noden  <R8232> 2 

46  column  text  screen 3 

printer  (default) 4 

printer  (assigned) 5 

printer  plotter. .6 

printer  (assigned) 7 

disk  drive  (default) 8 

disk  drive  (selected  or  assigned) 9 

disk  drive  (selected  or  assigned) 10 

disk  drive  (selected  or  assigned) 11 

disk  drive  (assigned) 12 

disk  drive  (assigned) 13 

disk  drive  (assigned) 14 

disk  drive  (assigned) 15 

Dpfmilt  is  the  number  set  ol  the  foctory,  Ihcil's  usuolly  the  woy  it  is  ol  power  up. 

fliSiiinfil  Is  set  ulth  dip  sulches  to  make  o  new  default  Molue,  that  is  it  will  default  to  the  new  ualue 
upon  power  up.  This  is  often  colled  hard  wiring,  or  a  hardwore  setting. 

Selected  means  it  wos  progrommcd  to  be  a  different  number  than  the  default  or  assigned  number.  This 
is  also  coiled  soft  wiring. 

READY .  .^m^.^.^mmm^  ^ff^ 
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Pile 


by 
Brian  L  Crosthwaite 

1^*  rnin'j  fft  our  r«i<l«ff  knoi.M..  ••.•«'»« 
b«<n  ftat'jring  k«irnifi'j-f»jn  pro^jfim^.  Thi*  mon^h 
if  no  «:«:«:*p*:lon!  M.k'Mt  'jo":  in  imioin^tion  'jom* 
for  uouno  ont*  an-l  no*:  *o  "jouno  ontJ  ilik*.  0»jr 
tk^Knti  progiom  ij  Phont  Lin«j  in  ii:'!  Mtiiou* 
foimj.  Tht  pio-jrom*  'jl»:imiUI<j  -lo  "iht  f-imt 
«:hin«3,  »:h«ty  -IfiM.*  a  Dhont'j  riiimbtr  po«l  'ind  •lf«JM.» 
lin«j  ffrtrri  ont  number  1:0  >h«  ntx*:  i:-:'  -lilt  ►ht 
phont  wii'.fi  1  number  *nUr«4  b"j  ':h<  -ihiW. 

Tht  pfoqfim  if  pi««:Hj  s^fiioM  foru.'ard. 
Afi:«i  »:h«  phon<  h«i5  4iaU4  iiht  j'.r^^n  will  '.kar 
ind  oniu  i:h«  lin«5  <.vill  b«  redrawn^  r«Mi«lin<9  4 
P'liiUrn.  L«i:<:<rf  03n  ill*)  be  cnUrc4  ond  i:h«ii' 
n»jmb«r  ««?»jiM«3Un^  '.Mill  b<  «li«ik«l.  Th«fe  'irof  1  ^«>n«f 
ar«  founded  on  i:he  ^-4  and  12:^  Mccfionf.  If  mo'j 
hold  4  i:oij<h  iton«  phone  ^ilofe  1:0  uour  monii:or*f 
speaker  M.ii^.h  i:h<  Molume  <jp..  i^  should  dial  ^he 
phone  IS  iihese  are  i:he  •ictuol  'iross  tones  1:0  di>]t 
4  i:ou<h  t:one  phone.  TheM  are  oitted  cross  tones 
because  there  are  actually  onh^  seven  different 
freauencies.  Three  for  each  seperate  column  of 
numbers  V)lf  Hz  (1,  4,  ?.  and  WX  l^Jii-  He  (Z,  5, 
:?,  and  O),  and  1477  He  0,  *•,  t,  and  #).  The 
other  four  are  for  each  ro».v  of  numbers  ^^7  Hz  (1, 
i  and  3j.  770  Hr  id,  5,  and  ih  =!=52  Hs  (7.  *,  and 
^j..  and  :«41  Hz  (i*,  0..  and  «). 

The  VICZO  uersion  is  set  up  for  the  tones 
but  the  pokes  have  been  left  out  because  ot  WM 
of  time.  M.»hen  I  d<t  a  frequency  conversion  chart 
and  some  time  I'll  impliment  and  include  tht 
updated  version  on  the  SpittBtf . 

On  the  SfiBtttr..  the  1»>4  version  has  a 
9host.  Actuallu.  so  do  the  iA  and  12$  versions. 
Tht  oriainol  screen  was  designed  with  a  program 
that  put  some  myfteri^s  code  into  memory^  and 
unfortunalu  the  program  seems  to  ke<»  aood  track 
of  this  elusive  BUG. 

As  ab.vays,  type  carefully  and  enjoy. 
These  proarams  are  availible  on  the  S»iSB«ff  for 
If-,  plus  iZ  postaa«.  Oi«M«r4  tfc«  Stift»«r.  P- 
0.  Box  y-iZ,  Boise^  Idaho,  ^^701.  The  Sfis««f 
has  extra  programs  not  found  in  the  Fl«<f . 


Listina  1   Phon<i:  Lints .12^ 

Z  i:OLOP.1J:COLOP.0,2 

1(*CPAPHICvJ:PPINTCHPI(142):SID3$427e 
:C'>=1:Fft5T:CP«>HI»:t1:»:O5UB2000 
:CO:'UB::000:i:OSUB4tW»):5LO».M:CP«PWC0 

i»>»?  pp.int".:home:.c»:=  zKA<f  spa<tr; 

11»>  PPINT"':5')  #pa<e>"; 

\Z<)  PPIMT".:51i  ipa<*5«BC(4  fpa<*}D"; 

150  PPINT"EF«4  fP^<*}iC*>  iPVA^li^  SM<t>J 

•:^  sp4<«y'; 

140  Pftl«T"{4JSf  spo.:*r; 

1F0  PRIHT".:4*  spacer; 

1*^0  PP1NT"{42  spaceJGHI  "; 

170  PPIMT"{J  f pacOiKUd  IP««)MN0 

<24  spacOdCf  spd-cO"; 
W}  PPINT"5.:«^  SPa<*}^C25  f  M<*}<11  #M<*}"; 
IHO  PPINT"{4$  5Pd<0"; 
£00  PRfNT"{4^  space}"; 
2:10  PPINT"{U  #pa.:*}PP5.:4  spactMUM 

C4  *P4.:4}<A»8VJ[15  ipa«}"; 
e20  PRINT".:'?  spa<*>7{^  fP'VA}H^  fP'KxYf 

CtO  spaci}"; 
£30  PRIMT"C4^  SPflr.*}"; 
idO  PPINT"{4*  spac*>"; 
£?0  PPINT"C5i^  spacOOPEPC^  space}"; 
lii>  PPtNT'TiS  smkYMr^  «pa.;4}0C*/  fPd«>« 

{4  space}"; 
£70  PPINT"C50  space}"; 
Z-^if  PPINT".:50  space}"; 
I'ff}  PPINr'-CS:*  spa<*}H00K':5  spac*}"; 
iOO  PRIMT"C7  spac*}POL{57  spa*:*}"; 
510  PPINT"C15  Space}" 
550  PRfNr'CHOMEMS  CiSi  dov.»ft} 

Oif  '.ifi  iiarit}"CHP.«27i"BCap.}" 


:ao  imput".:home}ehter  phohe 

NUMEEP".:HP|:IFr<R|=—THErC40 
550  FQ3T:CCOPHIC1,0:CO5UE$000:SLOlU 
1000  PEM  XX«X««X  PHONE  IWBZ 

Mz  mmmmmmm 

1010  REM  mm'lt  Spa.:4:iM0'..'EMBER  :«v  n-fz 

>:S  <P>Ks:}X.« 
tOlO  DEM  mmiK  Spo.:i}COP'.'DICHT  1'ii33 

•:e  (p<Kv}«x 

1012  DEM  mmH  spatiyLVNHCODTHV 
iZ  fpaCiiJinDUSTDIESCS  SP'K4}«« 

^n^z  rem  mm»i4  spa<K}aLL  right;  reserved 

10Z0  REM  XX  E:V  BRIQM  CRO^THWQITE  FOR  XX 

10^0  REM  XX  nnronv  eRian  crosthuiqite  xx 

1040  REM  XK  MV  BQBV  BOV  —  13  M0MTH3  XX 

1050  DEM  C20  X} 

lOtO  KMsSHrVMsniiXCsKM/SiVCrVM/Z 

iM'SlM  Ci:!MDHiCi..u 

UIZ  COSIJB500Q:CO;U67000 

1331  COTOtOOO 

2000  DEM  XXXXXXXX  r4UMBER  PRO  XX 

XXXXX 
2002  CHaR1^0..32/$."C1$  Spa<^}QBCC4  Spd«:>DEF" 
2012  CHQD1,0,40/a,"C12  5pd<4}1C6.  fpa<6}2 

Ct  spa«!}2  " 
2020  CHQR1..0..e4/$.."C11  fP4K'«}CHK4  fP4U}iKL 

C4  #pa<e>MNO" 
2050  CHODt0..72/5/'C12  «pa<«!>4Ce  «pd<*}5 
it  spa<e)$  " 

2040  CHQR1,0,3fc/$,"<11  fpa<e>PRS 

(4  SP4<4>TUUC4  «pa<«}WKV" 
2050  CHODt,0,104/S.."C12  fpa<*}TCe  SP4<«>e 

it  *P4<4)3  •• 
2070  CHQC1,0,13e/a,"C«  Spd<«>a<:J  fp4<4}" 
2072  CHQR1,0,fl31-31/>,"C12  fpd<e}X 

C5  Sp4<ii(}bpCC5  Spa<ft}S  " 
2030  CHQR1,0..U3/$,'X1t  <p4<6>0FF 

C11  «pa«}noL" 

2033  RETURN 

3000  FODX=100TO220STEP5( 

3010  FORV=3STO1T0$TEP32 

3020  fFX:tSeonDV=UeTHEn3030 

3022  CIRCLE1,X,tf ,21,15 

30Z4  C0rC04l:tFC0>1(THEriC0:i 

302«  C0L0Q4,C0 

3030  r«XT:rffiKT 

3040  QETUDn 

4000  BOX1,73,1(,240,K$ 

4010  PPIWT1,77,W 

4030  RETURN 

5000  FL=1:PORL:nOLENCnR$) 

5010IFMIO|r.WR|,L,1]l="0"THEWK1=t5$ 

:V1=134:D:4:C=2;GOSUB10000 
5020  IFMIO|(f«|,t,1]l="r'THEriX1=tOO 

:Vls03$:Rrl:C=1:GOSUB10000 
5030fFMIO|fHR|,L,1)S"2»*THEr«1=15$ 

;Vi::03$:R=1:C:2:COSUB10000 
5040  1FMIO|(HR|,L,1)S"3"THEKX1S212 

.V1s0S5:R21:CS3:CO5UBt0000 
50f0(PMIO|(NR#,L,t)s'*4"THEr4X1=100 

:V1=07O:D=2:C=1:COSUei000O 

50io  rFriioicr4R*A,i)s"5"THENXi=i5e^ 

:V1=070:R:2:C=2:COSU6ia000 
5070IFMID|CWD|,l.,1)="e"THEMXls212 

:V1=070:D=2:C23:GO$UB10000 
5030IFMIO|C«P|.i-.1)="7"THE«X1=100 

:Vlria2:D=3:Csl:COSUBt0000 
5010  IFMID|(NR|,L,1)="r'THEMXi:l5<. 

:V1=102:R=3:C:2:COSUB10000 
5100IFrdlO|(NP|,L,1)="1"THEHX1=212 

:V1=102:R=3:C=3:COSUB10000 
5110IFMIO|a<O*..L^1)="«"THEM}{1=100 

:V1:134:R:4:C:1:COSUB10000 
512aiFMID|(MR|,L,1)="r'THENK1=212 

:yis134:R=4:C=3:GOSUB10000 
5130IFMIO|(MD|,L,1]IS"Q"THEMK1S100 

:yi:i$(:POKESfO«24,0:CRRPHICO,1 

:PDINT"C2  HOME>":Er« 
5140IFMfD|(N6|,L,11lsCHR|r.15)rHENXl:212 

:yi=134:CRaPHIC0:RUn 
514SIFFL=1THEH::2=::i:tf2=V1:FL=0 
5150ORQmi,AtV1TOK2,V2::C=X1:V2=V1 
51(0  KEKT:POKE5fD«24,0 
5500  RETURN 
(000CROPHIC1,1:CO::UB5000;GETKEyE| 

:CRRPHIC0,1:RUN 
TOOO  CHHRT,1t/5,11VJ,-CS  «pd<ej 


pre::  :-:pqce:  to  '.;ieu.i  pottepm" 
7010  cetkevei 

70cO  CHQD0,1<...  3,111..-, ••{:•  JpO^i} 

PDES2  •::pqce;-  to  'JIEUI  PDTTEDN" 
7030  OETURM 

-Onn  REM  X  RERD  RLPHR/UIRITE  8  XX 
3002  tiQ^z"  '•♦NR|+"  •• 
S010  •:L=LEMfMR|.l:FORL:lTOJT 
30c0  Q$=MID|rNR|,L,11 
5030  IFQ|i"0"ODQ|:"B"ODQ*:"C"THEMND|= 

LEFT|r«R|,L-1)*"2"*RICHT^fNR|,>L-L~1]l 
3040  IFO|="D"bRRi="E"ORD$:"F'THENNR|= 

LEFT*rNR|,L-1H"3"+RJCHT$rMRf.';L-L-11 
3050  IFfl$=-G"ORR|="H"ORfl^="l"THENHR|= 

LEFT|rr<R|,L-1)*"4"*RICHTffNRJ,3L-L-1.1 
SOeo  IFfl*:"r*ORR|="K:"ORfl|="L"THENNR|= 

LEFT$fNR^,L-1)*"5"*RICHT*fNR|,5:L-L-11 
5070  IFQ|="M"ORfl$="N"ORR|="b"THENNR|= 

LbFTfi:MR^,L-1)*"t"*PICHT*i;NDf.a-L-i:J 
3030  IFfl|="P"ORfl|="R"ORQ|:"-:"THEWNR$= 

LEFT|(NR|,L-1)*'7"+RIGHT$i:NR|..SL-L-1) 
3010  IFQ$="T"ORO$="U"ORa|="'v»"THE«NR$= 

LEFT|(NR|,L-n*"S"*RICHT|fMR$,SL-L-1) 
3100  IPQ|="W"OROi="K"ORP|="V"THENNR|= 

LEFT|(NR|,L-1)*"1"*RICHT|(NR|,SL-L-13 
3110  NEt:T:ND|=MID|(HD|,2,JL-2) 
3100  RETURN 
nn  END 

10000  REM  PHONE  TONES 
10010  POKE:>10«24,15:POKESIO«4,U 

:POKESIO*11,U:POKESID*5,.:POKESID*12,. 
10020  P0KESI0«e,15XU 

:POKESI04l3,15X1$:POKESt0^23,. 
10030  REM  X  SET  UP  CROSS-TONES  X 
10170  REM  XXXXXXXXXXXXSXXXXXXXSX 
101$0  IF  C:i  THEN  POKES{0,117;POKESIO«1,77 
10110  IF  C=2  THEN  P0KESID,152:P0KES{O4l,$5 
10200  IF  C:3  THEN  P0ICESI0,1(1:P0KESI0«1,14 
10Z10  IF  R=1  THEN  POKESID«7,1($:POKESIO«$,44 
10220  IF  R=2  THEN  POKESID«7,35:POKESIO«2,41 
10230  fF  R=3  THEN  POKESIO«7,150:POfCES10*$,54 
10240  IF  R=4  THEN  POKESIO«7,74:POKESIO«$,(0 
10244  IF  C=0  ONO  R::0  THEN  10210 
10250  REM  X  TURN  TONES  ON  XXXXXX 
102(0  POKESI04'4,17:POKESIO«11,17 

.FORi:lTO50:NEXT 
102T0  REM  X  TURN  TONES  OFF  XXXX 
10230  P0KESI0«4,1(:P0KESI0*11..ie 
10210  RETd  XXX  VOVRCEUR  STUDIOS  XXX 
10320  RETURN 

u«irI^rrPHdiMFuNES.7ET4 
For  (4  (Jiitn  super  Expander 

1000  COtOR1,0,,0 

1010  CRQPHIC0 .1:PRINTCHR|(142):SID=54272 

:CO:1:CRQPHIC2,1:GOSUB141O:COSUB1520 

:COSUB1(00 
1012  CROPHIC0 

1020  PRINT"CHOMEXrtfl  2}C41  «pa<«5".: 
1030  PDINT"C50  «p4<fc}"; 
1040  PClNr'C^I  spd(«>RBCC4  Spa<«>D"; 
1050  PRINT"BF(24  fp4<«}K(  Sp4<4>2 

it  SP4<«>3<(  ipa<4}".: 
lOiO  PRfNT"C4$  SP4<4}".: 

1070  PDINT"C4$  space}": 

1050  PRINT"C52  spa«>CHI  "; 

1010  PRiNr*{3  s»a<6}iKL{4  f pa<:e}MNO 

<24  fpa<«}4C(  space}".: 
1100  PRiNT"5Ci  spa<4}(C25  spa<4}(il  space}"; 

1110  PRINT"C4^  Spac*}"; 
mo  PRir<T"C4^  SpaC4}"; 
1130  PDJNT"(12  sp4Ce}PRSC4  Spa<4>TUV 

C4  spacft}uixv{i5  spacik}".: 
1140  PR1NT"C1  ipace}7Ce  spac6}3C(  spacO*) 

C20  *paC4}".: 
1150  PRINT"C4$  space}"; 

11(0  PRINT"C45  space}".: 

1170  PRINT"(3e  spa<4}0PERC(  Spa<4}".: 

1150  PR1NT"C25  spac«}XC(  spac4}0<C(  fpac4}« 
C4  space}"; 

1110  PRINT"C50  SpacO"; 
1200  PRINT"C50  Spa<4}"; 

1210  PRiNT"C3i  spac«}HOOK«cs  space}" : 
1220  PRiNr'CT  sp4ce}ROLC37  Space}"; 
1230  PRINT"C13  space}" 

1270  INPUT"EriTER  RHONE  NUM6ER":NR| 
:tFNn*=""TKiK12T0 


5   dieHard  Mnuary  11^15 


^ZZO  CBQPHIC2..0:CO2:UE15:70 

1Z?0  DEM  XXXXXXX  PHOHE  UtiBS  XXX 

irOQ  REM  XXC4  spaCv>HOVEMBEC  Zt  1312 

((  ipa<«}xx 

1300  REM  XXC5  *p«K«)COPVRICHT  111S 

C7  fpa<v::iXX 
1310  REM  XXCZ  fp4(«}LVnMCQCrHV 

>:Z  ipiKvIilNDUSTRIESCZ  <P>3(<:>XX 
i:Zi)  REM  XX{4  <p«3<«>QLL  RICHH  RESERUEO 

\Z  ipo>:v}XX 

mo  REM  XX  B'.'  ERIRH  CRO^THUIQITE  FOR  XX 

1340  REM  XX  QMTOMV  eR(QN  CDO^THfilQiTE  XX 

1JE0  REM  XX  MV  6067  BOV  --  11  MOHTHS  XX 

13i!.0  REM  v20  X} 

1370  ::M=311:VM=111:::C=::M/2:VC:'.'M/4 

1350  CRPPHICSc,0 

1310  COSUBie30:CO^UB1$>0 

1400  COTO1$Z0 

1410  REM  XXXXX  NUMBER  POO  XXXXX 

14Z0  CHQC1..0,32/$.."O^  fp4U>QBC{4  fp4i:v>0EF*' 

1430  CHaR1..0..40./$,"<12  sp<l«i}Kt  i^^ik/Z 

it  f pa<6>2:  •' 
1440  CHaR1..0..(4/$,"{11  fpa^«>CHIC4  ipa<itVKl 

C4  $p4<i>MM0" 
14S0  CHaRt0..72/$/'{12  fp4<«>4<$  fp4<4>£ 

{(.  fpa<«>(  " 
14e0  CHOR1..0,H/$,"O1  Sp4<4}PRS 

•:4  <P4<4>TUU<4  ip4<«}UI»V" 
1470  CHQR1..0..104/$,"C1S  ip4«(>7Ci  «p4<*k}^ 

Ce  «pa<«}) " 
i4$o  CHPBt,o,iSi/2/'Cii  fpa<«}0C5  spuoty 

1410  CHQei,0,n51-J)>'5.."O2  «P<I<*>» 

{S  fpi]<c:iOPRC5  Ip4<4>ft  " 
1500  CHQR1,0,1$3/S,"C11  «p«*>OFF 

C11  fp4(«}R0L" 
1510  RETURN 

15Z0  FODH:100T0220STEP5( 
1530  PORV=3$TO170STEP32 
1540  IFX:i5(QNDV:l$eTKEN1530 
1550  CIRaetX,V,21,15 
15S0  HBJCTtHCXT 
1510  RETURN 
liOO  BOXV73,1$,240..m 

U10  Poirni,77,i$ 

1(20  RETURN 

U30  FL:i:F0CL=1TOLENCNRf ) 

U40  IFMtO|(NC|A..1]ir'0"THENK1=15( 

.yi:i34:R:4:C:2:COSUB2030 
«50IFMIO|(««|,L,ljs"rTHEMX1siOO 

:V1:03$:R:1:C:1:C05UB20» 
U$0  IFMI0|CMR|,L,1JS-2"THBNX1=15( 

:V1=Q3$:R:1:C:2:COSUB20?0 
1i70  IFMIOHNB|A,1jr"3"THIHXls212 

:V1S03$:R=1:C:3:C05U6203Q 
1$«0IFMID|(NO|,L.t?="4"THBHKt:i00 

:yir070:R:2:C:l:COSUB20^0 
«10  IFMIO|(NO<,L.1]l="5"THEmi=15ii 

:V1:Q70:R:2:C=2:C03U62030 
1700  IFMID|(HR|A/1J="»"THBMX1S21I 

:V1:OTQ:R:2:C:3:CO$UB2030 
1710IFMIO|CNR|.L..1Js"7"THWIXlstW 

:V1:102:R:3!C=1:COSUBZO:0 
1720  (FMID|(NR|A^1)s-rTHfiffXlsi5t 

:V1:102:R:3:C:2:GOSUBZ030 
1730  IFMI0|(NR|A J)s"1-THI«Xn212 

:V1=102:R=?:C:3:COSUBZ030 
1740  IFM<OfCMe|.L.1)s"«"TH€MXl5l00 

:Vi:U4.-RS4:C=1:CO$UB2030 
1750  IFMfD|r.NR|A,1)="rTK{mi:2t2 

.i;i:134:R=4!C:3:COSUB2030 
17i0  IFMI0|rNR|,L.1)- 'Q^'THiNXniOO 

:yirl((:POKE$IO«24..0:CRaPHIC0..1 

:PRINT"CCLRy'!ENO 
1770IFMID|(NC|,L,1)=CHRK15)THBNS1S212 

:'/l:l34:CRQPHIC0:RUN 
17$0  IFFL=1TKENJ!2=X1:V2=V1tFL=0 
1710  OROUI1,X1,V1TOX2,V2;K2s:<1:V2sV1 
1$00  NE:<T:POKESI0^24^0 
1$10  RETURN 

1$20  CRQQHK:Z,1:C0SUB1(30: 
1522  C£TE|:IFE|S""THENie22 
1$Z4  CROPHfC0,t:RUN 
1SS0  CHRR1,U/?,111/S,"<:3  «P4<*> 

PRE??  :?PaCE>  TO  'vf(EUf  PQTTERN" 
1$40  CeTE|:IFE|:""THENn4Q 
1$50  CHOR0,W/S,131/?,"C3  ^pa^t} 

PRESS  <SPPCE>  TO  VIEW  PQTTERN" 


nf.O  RETURN 

1ST0  DEM  X  DEQD  QLPHQ.-  WRITE  «  XX 

1550  MD|r"  "♦HDI*"  " 

1310  :L:LENI:NR|]I:F0RL=1T02T 

1100  Q^:MID$rNR|..L,1.1 

1110  IFP|="Q"bR0i="B"0Ra$="C*THENNR|= 

LEFT$fMR|..L-1]l*"2"*DICHTfrNR|,3L-L-11 
1120  IFO|="0"0Roi="E"0R0|='T"THENNRf: 

LEFT$i;NR$,L-114"3"*RiCHT|fNR$,3L-L-n 
1130  IFO$="C"ORR|="H"ORR|="l"THENNR^= 

LEFT^i:NRf.L-11*'4"*RICHT^rNR$..3L-L-11 
1140  tF0|="i"0RO$="K"0RP|='L"THENNR|: 

LEFT|CNR^L-1)*"5"*R(CHT|rNR|,SL-L-1.1 
1150  IFP|="M"ORO|="N"ORP#="b"THENNRf= 

LEFTfrNR^..L-1)*-t"*RICHT|rNR|,SL-L-11 
IliO  IFO|="P"ORR|="R"ORP|=*S"THENNR$= 

LEFTfrNRf.L-1)*"7"*RICHT#fHR#.SL-L-n 
1170  IFP|="T"ORR|="U"ORO|="'v'"THENNR|= 

LEFT|rNR|,L-11*"e"«DICHT|rNR|,i"L-L-11 
1ieOIFP|="UI"ORP|="X"ORP|="'.»"THENNfi|= 

LEFT|f.NR|,L-1)**">"*C«CHT|(NR|,2L-L-1) 
1110  NEKT:NR$:MiO|rNR|  .2  .SL-Z) 
ZOOO  RETURN 
Z010  END 

ZQ30  REM  PHONE  TONES 
Z040  POKEStD«Z4..15:POKESID*4..U:POKESID«11 .11^ 

:P0KESI045...:P0»CESI0«1Z... 
Z050POKESID«i..15XK:POKESIO*13..15X1( 

:POKBSIO*23,. 
20(0  REM  X  SET  UP  CROSS-TONES  X 
2070  REM  XXXXXXXXXXXXXXXXXXXXXX 
Z0$0  IF  C=1  THEN  POKES10,117;POKESID*1,77 
2010  IF  C:2  7HEH  POKESID..152:POKESID«1,$5 
Z10Q  IF  C:3  THEN  POKESID  .1(1:P0KESID«1,14 
2110  IF  R:1  THEN  POKESIO«7,Kt:P0KESID«$,44 
Z1Z0  IF  R:Z  THEN  POKESID«7,$5:POKEStO^$,41 
Z130  IF  R=3  THEN  POKESIO47^150:POKESIO«$^54 
Z140  IF  R=4  THEN  POKESID«7..74:POKESID«$,(Q 
Z150  IF  CSO  PND  R:0  THEN  Z200 
21(0  REM  X  TURN  TONES  ON  XXXXXX 
2170  POKESIO«4..17:POKESID«11..17 

:FORt:lT050:NEXT 
21$0  REM  X  TURN  TONES  OFF  XXXX 
2130  P0KESID«4^1(:P0KESI0411,K 
2200  REM  XXX  VOVPCEUR  STUDIOS  XXX 
2210  RETURN 

U«iftrrPHdHiTlNlfsJ('4 

For  (4  uiitri  Sirt'iorii'  B4iU 

10  PRINT"CCLR>"CHR|(14Z) 

100  PRINr"C<ti'l  2^<43  SpiK«>"; 

110  PRINT"C50  <P0<4>".: 

1Z0  PB1NT''C33  S^4<4}flBCC4  ip4<«>0".: 

130  PRINT"EFCZ4  ip4<4>K(  spai«>£C(  SP4<«>3 

C(  ip4<«y; 
140  PRINT"C4«  *P4«!y.: 
150  PRINT"C4S  fP4<4j".: 
1(0  PRINr'C42  f P4<«>CKI  "; 
170  PRINT"C3  ip4<«>;KLC4  «P4K4>r4NO 

CZ4  fP4<«}4C(  Spa<6>"; 
no  PR(Nr"5C(  fpa<6>(C3(  Sp4<«>"; 
130  PRINT"C«  «PO<ftJ".: 
200  PRINr*C4<  «P4<45"; 
210  PRfNT"C12  SP4<«}PRSC4  fP4«>TUU 

C4  fP4<i>UIXVC15  $p4«ey'; 
220  PRINT"C3  *P4<4>7C(  <pO«t>a((  «p<l<4>3 

C20  ipa<«}"j 
220  PRINr'C4(  «P4«t}"; 
240  PRINr'{4$  «P4<4>"; 
250  PRmr"<2(  f P4<«>0PER<(  fP4(4}".: 
2(0  PRtNT"C25  fp4<«}XC(  ipO(«}0C(  ip4<«>» 

C4  <pa«.y.: 

270  PRINT"C50  fp4<4>".! 
ZtO  PRINT*'C50  *P4CO"; 
Z30  PR1NT"C33  «p4<4jH00KC5  #P4<«y.: 
300  PRINT"C7  *p4«t}R0LC37  ip4«>"; 
310  PfilNT"C13  *p4<*>" 
3Z0  POfCE532$0,.:POKE5S2$1,. 
340  INPUT"ENTER  PHONE  NUMBER'*;NR| 
:COSUB20000 

1000  REM  XXXXXXXC2  5P4<«}PH0NE  LINES 
vZ  f pocftyXXXXXXXX 

1010  REM  XXC5  *p4«:yN0VEMBER  Z5  133Z 
C5  fp4U}XX 

1001  REM  XXC(  spd<«}COPVRiCHT  1333 
C(  ^pOCii/XX 

1012  REM  XXC5  fpo<«>LVNNCPRTHV  INO. 


1014  DEM  XXC3  ip4«:}QLL  RIGHTS  D6:ED'-.-'E0 

{4  {p4>:>;:>XX 
1020  DEM  XX  BV  BRION  CDOSTHUIDITE  FOR  XX 
1030  DEM  XX  ONTONV  BRIPN  CROSTHUJQITE  XX 
1040  DEM  XX  MV  BRBV  BOV—  11  MONTHS.  XX 
1050  REM  C30  XJ 

10(0  MMrSllrVMsill-.KCrKM/ZiVCsVM/Z 
1010  HIRES1,0:COLOUR0,0 
1132  •v'X=0:COSUB3000:COSUB2000:GOSUB4000 

:COSUB5000:COSUB700Q 
1111  COTO(000 
2000  TE;<T0,3Z,"C1?  *p4i«k}PBC 

•:4  #p4i:*>0EF-,1..1^S 
2010  TE:;T0,35-3/\1Z  ip<K4}K15  fpaci}",1,2,3 
2012  TE;;T0..40/*C11  «p4<ii}2.:(  fp0<«)3  ",1,1..2 
ZOZO  TE:s'T0..(4/'C11  5pa<*>CHIC4  ip«K«}jkL 

C4  *P4<4>MN0",1,1,5 
2030  TEXT0,72,"{1Z  ip4<4>4<(  jp4<.i)5 

it  *P4<<:>(  ••,1..1,$ 
2040  TEXT0,1(."C11  *po<«k5PRSC4  *p4i6}TU'v^ 

<4  #pa«:5(UKV"..1..1..$ 
2050  TEXT0,104,"O2  SP4>:4}7C(  ipHiijZ 

C(  *P0<4>3  ",1,1,$ 
20(0  TEKT4,12J/*C1T  «p4<6jOPERC7  SP4<4)",1..1,S 
2070  TE8T0J5(,"C1''  «P4<*50<$  *p4<4y,1,1,S 
2072  TEXT0,131-3/'C12  <pa«c}XC13  «pa<«> 

«  ",1,2,$ 
20$0  TE'^T4,1(3.."<10  ip4(«>H00K 

CM  «P4<4>"..1,1,5 
2030  TEXT0,1(3/X25  fpa«>R0f,t1.$ 
2033  RETURN 

3000  FOR}!:10QT0220STEP5( 
3010  FORV=3«TO170STEP32 
3020  tFX=15(PNOV=1((THEN3030 
3022  CIRCLEX,V,21,15,1 
3030  NEXTiNEXT 
3040  RETURN 
4000  REC5(,1(,200..  170,2 
4010  PQINT53,10,1 
4020  BLOCK0,0^:(M..VM,2 
4030  RETURN 

5000  FU1:F0RL:1T0LEN(NR|) 
5010IFMIO|CNR|,L,1)="0**THENXiri5( 

:Vi:i34iR::4:C:2:COSUB10000 
5020  IFMIDKMB|,L,1)="1"THBWXiriOO 

:Vi:03^:R=1:C:i:COSUB10000 
5030  IFMIOKNR|^L^1)='*2''THEn:{i:i5( 

:Vi:03$:R=1tC:2;COSUB10000 
5040IFM1D|(NR|,L,11|s"r7HEH«1S21Z 

:Vi:O3$:0:i:C=3:COSU61OOOO 
5050IFMIO|(NQ|,L.1)="'r'THE«Xlsi00 

:Vi:070'JIs2:C:itCOSU610000 
50(0  fFMIO|CNR|A/1)="5'*THEr4K1=15( 

:V1:«70:R=2:C:2:COSU610000 
5070IFMIDHNB|,L,1J="("THEHK1=212 

:V1=070:R:2:C:3:COSUB10000 
50«0  IFMID|(«R|A/1)="7"THEHX1S100 

:</1:102:R:3:C:1:COSU6100QO 
5030IFMIO|(rffi|A..1)=-<"THEHX1=15( 

:V1:102:R:3:C:2:COSUB100QO 
5100  IFMID|(NR|,L.D="^"THENXl:212 

:V1:102!R:3:C:3:COSUB10000 
5110  IFM(0|(NR|  .L,1)="X**THENX1:100 

:Vl:i34:R:4tC=1:COSUB10000 
5120IFMtO|CNO|,L,1J="«"THENX1=212 

:<.'1=134!R=4:C:3:COSUB10000 
5130IFMIO|(NR|,L.1)="Q"THENK1=100tVlsi(( 
5140  IFMIOf(NC|..L.1}-CHR|C13)TH€NXi:212: 
5W  IFFLriTHEN}C2=X1:V2rM1:FL=0 
5150  UNEX1/;i,X2,92,2::<2=X1:V2rV1 
51(0  NE2:T:POfCESID«24,0:U:{:2 
5500  RETURN 
(000  PT=0 

(010  PT=PT*1jIFPT>1THENPTsO 
(020  PPINT0,0,PT 

(030  HIREStO:COSUB5000:COSUB7000 
(040  NRM-.END 
7000  IFV'v/siTHEN7040 
7004  TEXT1(,131/'C3  f  P4«>C<^N  D) 

PRESS  <iitt\  4>SPPCE> 

C<t/I  0>  TO  MfEW  PPTTERN",0,1,« 
7010  POKB13J^0:0IOIT135,1 
7020  TR:T1(..131,"C3  fp4<«X«»l  ^> 

PRESS  iiit{\  4>SPBCE> 

can  P}  TO  VIEW  PaTTERN-,1,1,5 
T030  'v^JsitRETURN 


4U(H4r4  JaiW'iiy  1113  ( 


7040  Tl:^'J%,^3^,"^:^:T.,\  ly 

PQiSi.  -.iiKUi  .i:.:poce:-v:i:.i  b>  to  re 

PEOT  :^<ti{\  .l>g.:ail  6}>  TO  BMD", 1,1,5 
705:0  POKE11$,0:W«IT11S,1:(FPEEKf13T):«.0THEW 

NPM:RUM 
70^0  TE::T1i,131,"C<ti*I  6 J 

PPE:--;  :>:ai\  .i>-:PQCE:-C':t»M  ^v  to  pe 

PEPT  tortl  «3:-g«:<«:»l  t.}:-  TO  EHD",0,1,$ 
70J0  MDM:RETURH 
r}>n  EMD 

10000  REM  PHOME  TOMES  ONO  RIMCER  ROUTfWE 
10010  ;iD=542T2:P0KE2ID*24,15:POKESIO*4,1i 

:POKE3:iD*11,1i:POKEi':iO*5,.:POKE2IO*12,. 
10020  POKE:iD*ii,15?lfU:POKESID*13,1!:«U 

tPOKEJIO+S:... 
10020  REM  *  i'ET  UP  CROJ-:-TOMES  X 

10170  ^imMMmmmmmmmmm 

IOISO  IF  C=1  THEH  POKE2:iO,117:POKESID*1,77 
101U0  IF  C=2  THEM  POKESIO,152:POKESID*1,S5 
10200  IF  C:2  THEM  POKESIO,«1:POKESrO*1,14 
10210  IF  R=1  THEM  POKESIO*7,1i5.$:POKB5ID*«,44 
10220  IF  R=2  THEM  POKESID*T,55:POKESID*S,41 
10270  IF  QZZ  THEN  POKESID«T,1S0:POKESIO«?,54 
10240  IF  R=4  THEM  POKESID*T,T4:POKESIO*5,$0 
10244  (F  C:0  QMD  R:0  THEM  10210 
102S0  REM  X  TURN  TOMES  ON  XXXXXK 
102^0  POKESrO*4,1T:POKESIO*11,1T 

:FORI=1T05:0:ME::T 
10270  REM  X  TURN  TOMES  OFF  XXXXX 
102^0  POKEStD«4,U:POKE;iO«11..ie 
10290  REM  XXXX  'v'OVQCEUO  ?TUD(0^  XXXX 
10^20  RETURN 
102:  SO  END 

20000  REM  X  REQO  OtPHO/UIRITE  9  XX 
20010  MR|="  "♦NR|*"  '• 
20Q2Q  SL:LEM(MR|):F06L=1T0ST 
200S0  a|:MI0|CMR|..L..11 
20040  rFQ|="0"ORQ$r'B"ORQ|="C"THEN 

NR$=LEFT|(NC|A-1]i*"2"*0«CHT|(HR|,SL-L-1) 
20050  IFP|="D"OeO|s"E"ORO|="F"THBWKR|s 

LEFT|(NR|..L-1)*"3"*PICHT|CMR|..SL-L-1J 
200$0  IFQ|s"C"OCO|="H"OPQ|="l"THEMNC|x 

LEFT|(MP|..L-tJ»"4"*RICHT|tNe|,SL-L-1} 
20070  IFQ$="rORO|="K:"ORQ|s"L"THENNR|r 

LEFT|(MO|.X-1)*"5"*RICHT|CNR|,5L-L-1]l 
20030  IFR|="M"ORP$=*'M"ORO|S"0"THENMR$= 

tEFT|(rffi|,L-1]l*"f*RfCH7|(NR|,SL-L-1) 
20030  IFQ|S"P'*ORQ|="R"ORO|r"S"THHNHB|s 

LEFT|(Nfl|,L-1]l*"T"*RICHT|(NR|..SL-L-1]l 
20100  IFQ|="T"ORO|s"U"ORO|r*V"THEMNR|s 

LEFTU:NRLL-1]l*"?"+RICHT|CHR|,SL-t-l) 
20110  IFO|S"UI"ORO|s"H"ORfl|="V"THENNR|= 

LEFT|r.MR|,L-1]i*"3"*eiCHT|(NP|..SL-L-1) 
20120  NE::T:NR|=MI0|(MR|,2..SL-2) 
201:0  RETURN 
20140  END 

UitM  ^  otMtk  Liri4s.u«4  f^(  ^t  ^  Phis  4 

1  REM  COPVRICHnU?  LVNNCRRTHV  INO  OLL 
RIGHTS  RESERVED 
1000  C0LOR1..1:COI.OQ0^2:SCHaR 
1020  CRQPHfCZJ 

10^0  CHaR1,0,4/'{1^  SP4<6}0BCC4  fp4<«}0£F* 
1010  CHOR1,0^5.."{12  fpa<«>K(  Sp4<«>2 
it  #pa<«>3  " 

1100  CHRR1,0^$.."<11  fp4U>CMC4  Sp4<ft>JKL 

C4  fpa<4>MN0" 
1110  CHRRI^O^I..  "C1Z  SP4«>4C(  #pa<«>S 

Ci  fp4<4>^  " 
1120  CHOR1,0,12,"C11  *p««5PRSC4  *po<*}TUV 

C4  fp4<4>mXV" 
1130  CHPR1,0,13,"C12  «p«*>7Ci  fp4U>? 

it  fpia<«>1  •• 

1140  CHpRi,o,i7/-cii  *pa<*:.o<:$  «pa<4y' 

1150  CHPR1,0,U/'<1S  SP4<<k}X<5  ip4<<t>0PP 

C5  fp4<«>«  " 
11S0  FORX=100TO220STEP5e 
1110  FORV:33TOieOSTEP32 
1210  CIRCLE1,K,V,21,15 
1220  ni^kt:He::t 

1250  INPUT"CHOME)C<trl  2JC24  <(ft  40W6>6M 

TER  PHOME  MUMBER".:NR|:IFHR|s""THEN1250 
1410  NR|="  "♦NR|*'*  •• 
1E00  SL:LENr:NR#):F0RLS1T0ST 
1510  P|:MI0|l<MR|,L..1]i 
1520 


IFO$="Q-ORO|="B"ORQ|="C"THEMNR$= 

LEFTffNR$,L-11*"2"*RICHT|fNR|,SL-L-n 
1530  IFq|="D"ORP$="E"ORP|="F"THEMMR|= 

LEFTfi:MR$,L-11*"3"*RICHT$i:MR|.SL-L-n 
1540  IFQ|:"G"ORfl|r"H"ORO|="l"THENMR|= 

LEFTjrHR|,L-1U"4"+RICHT|fMR$,SL-L-11 
1550  IFQ|:"i"0RO|="K:"0RP|:"L"THEMMR|: 

LEFT|rNRf.L-1)*"S"*RICHT|rHR|.SL-L-11 
15^0  IFQ^="M"ORP*="M"ORP|="0"THEMMR|= 

LEFT|fNRf.L-1)+'%"*RICHT^fNR|,Sl-L-11 
1570  IFQ|="P"ORP|r'R'*ORP|="S"THEMMR|= 

LEFT|rNR|,L-1Tl*'7"*RICHT|(MR|,SL-L-1) 
15S0IFO|="T"ORP|:"U"ORP|="U"THENMR|: 

LEFT|fMR|,l.-1]l*"U"*RIGHT|i:MR|,SL-L-1) 
1510  IFO|="IJll"ORP|r"::"ORP|="'rTHEMMR|= 

left|cmr|,l-1)*"1"*richt|chr|,sl-l-1) 
115,00  ne;;t:NR|=mio|(nri,2,sl-2i 

22eO  FLri:FORL:iTOLEN(MR|} 

2270IFMtO*(MR|,L,1)="0"THEMK1=15e:V1=134 

22$0IFM«D|(NR|A.1)="1"THENX1=100:V1S03S 

2210  tFM»O|(NR|,L,1]l="2"THEHX1=15e:V1=032 

2500  IFMIO|rNR|..L  .132"3"THEHXU212:V1S033 

2310IFMID|(MP|,L..1J-*4"7HENX1=100:V1=070 

2S20IFMIO|CNR|,L/1]IS"5"TMEMX1215$:V1S070 

2330IFMIO$(NR|,L,1J="e"THEWR1S212:V1=070 

2340IFMIO|(NR|..L,1.1="r'THENX1=100:V1S102 

2350IFMID|(NR|A,1.1="$"THeH::i=15e:Vlsi02 

23t0fFMID|fNR|,L^1)='"*"THEHX1=212:Vi:iO2 

2370IFr'tlO|(«C|A,1)S"X"7HEHX1=100:V1=134 

2350IPMID|CNR|,L..1.1="«"THEHX1S212:V1S134 

2410  IFFL=1THErr<{2=X1:V2=V1tFLsO 

2420DRP(U1,.:<1^V1TOX2..V2:X2=X1:V2:V1 

2430  n€::T 

2450  PPfNT'\5  <{§(  4mUKZ  f  P4<4> 

PRESS  <5PPCE}  TO  CONTINUE" 
24(0  GETKEVEI 
2410SCNCLP:IFF=1TH€NRUN:ELS£P=1:COTO22(.0 

f<>(  UlC  20  tUittk  $up4r  EXpori4«/ 

0  REM  XC0PVPICHT1113X 

3  REM  LVNNCPPTHV  INO. 

4  REM  X  PLL  RICHT5C2  f  p4<«>X 

5  REM  XC2  f P4<«)RESER*v^E0<3  fp4(«}X 
n-i  G05Ue$000 

1000  PRINTCKQ|t142r'<(  i(*t  4diUft> 

C2  Hit'  aqftfiiiUt  3>ENrfR  PHONE  NUM 
6ERC<Ci'l  1>":COLOR1,0,0,Z 

1010  iNPUT"<4  iifi  •i9M>";NR| 
:IFNR|="Q''THEmOOO 

1012  PRINrCHC|(14)"CCLRX5  <if<  4«Uf6} 

<2  nf(  ^i^fttxrt/i  sy 

1013  PRiHr'cs  <<*f  ii^ttKxmn  ->  c<t<i  75 
istm  i>vr4N(shirt  (}pcthv  isMtx  i) 
NO.c<«ri  s)c<wri  -)" 

1015  PRINT"C2  HSi  HmKC'  Z}CH  itAtt  X} 

CC=  x>" 

1030  PRfNT"C2  i(*<  I'i^hOCT  «*(  rl^ACy 
iiUl  (}PRE?eNTS<5  <ii<  40UIA> 

{13  <tu  i«rt>c<tri  zx*fiif<  -X<t<ti> 
iitiift  p>Hor«{<tfi  $xsMrt  -x<t/(i> 
imn  omssiini  twftin  -x<trti> 

ifftin  *X*ft»«  «>20C<til  $JC5HIFT  ->" 
1032  PRINT"CZ  <i**'  UPKZ  «*f  ^iOht}<C:  4} 

C5  mn  x>cc=  o<s  sMtx  xxc^o 
C4  sikirt  xxc=  sy 

1034  PRIHT'*C<'f^  4«ttMX2  HSi  ri^ftOCC^  Vj 
<5  ftutX  XXC=  «XS  sriift  X}<C:  4> 

C4  f  ftiri  X>CC2  x>" 

103i  IFNR|s"2"THf NNR|2W|jG0T01«W 
1040  PRINfCZ  <f*<  4««W>C5  <<*(  am^J 

iiui  V/Pnta  zyci<u\  4JNc<wi  5>o 
i<ui  t>EC«ri  r/Qia<\  t}K<Xii  1}N 

nui  3>cc<tii  4).c<wi  5>.c<«'»  ^y 

1050  C05UB4000 
10(0  COSU62000 
1070  COSUB3000 
10$0  COSUB(000 

2000  GPPPHia 

2001  XM21023!VM=KM::;F=J:M/311:VF=VM/111 

2002  FOR:{=100TO220:;rEP5( 
2010  FORV53ST0170STEP32 
2020  IFX=15(PNDV=1((THEN2040 
2030CIRCLE1.KXXF,VXVF,17XXF,15XMF 
2040  NEKTtNEXT 

20(2  0RPW1, 73XXF,1(XVFTO240XXF,1(XVF 
20(4ORP«l1^240KSF..1(XVFTO240XXF,13$XVF 


zoiii.  ORomi,240«::F,t?.c«vFTO7:?«:-:F,i52«vF 

20*.-  DRPW1,7>*KF,i.-:SXVFT0T:»::F.m«VF 

2070  PQIMT1,77*::F,15«VF 

2030  RETURN 

2000  FL=1:FORL:iT0LEMrHR$1 

3010  tFMID$rMR|,L,n:"0"THEM::i=15t 

:'.'1=134:R:4:C=2:COSUB5000 
5020  IFMIDffMR|,L,11="1"THEHX1=100 

:V1=035:R:1:C=1:COSUB5000 
3030  IFMIO|rNR|,L,11="2"THENX1:l5t 

:'.'1=033:R:1:C=2:COSUB5000 
3040  IFMID|CNR|,L,1)="3"THEHXl:212 

:V1=033:R=1:C=3:COSUB5000 
3050  IFMID|rMR$,L,i:i="4"THEH::i=100 

:VlS070:R=2:C:l!COSUB5000 
30(0IFMIO|fMR|,L,1T|S"5"THEM::i=15t 

:'.«lr070:RS2:C=2:COSUE5000 
3070  IFMID|CNR|,L,11="i5."THEM:{1=212 

:'.«1=070:R=2:C=3:COSUB5000 
3030  IFMIO$CMRf.L,11="7"THEMS1=100 

:yiSl02:Rs3:C=1:COSUB5000 
3010  IFMI0|(NR|,L,1)="3"THENX1=15( 

:M1=102:R=3:CS2:COSUB5000 
S100fFMID|(HR|..L..1)="1"THENX1=212 

:V1=102tRs3:C=3:COSUB5000 
3110IFMIO|CNR|,L..1?="*"THENK1=100 

:Vl:i34:R=4:C=1:COSUB5000 
3120IFMID|(NR|,L..1)="1t"THENK1=212 

:V1=134:R:4:C:3:COSUe5000 
3130  IFMIO|(NR|,L..1)="9"THENX1=100 

:>/1=1((:REM  TURN  SOUND  OFF 

:GRPPHtCO:PRINT"<<tn  1>":END 
3140IFMID|(NR|,L,1]I=CHR|(15)THEN»1=212 
:V1:134!CRPPHIC0:RUN 
3150  IFFL=1THfiNX2:X1:V2:V1:FL:0 
31(0  IFFLS1THENK2=K1:V2ZV1:FL=0 
3170ORPttl1..X1XS{F,V1XVFTOX2XKF..V2XVF 

:K2=X1:V2=V1 
3130  NEXT 
3110  RETURN 

4000  REM  X  REQD  OLPHP/tJdRITE  41  XX 
4010  NR|S"  "♦NR|*"  " 
4020  SLrLENCNR|]l:F0RL=1T0ST 
4030  P|=MID^(NR|,L..1) 

LifCin^f  «>riCtn(i«  on  poa4  i( 


XAiimLS 


This  mofith's  LIST  features  the 
Treasore  Valley/Boise  User 
Grrap.  Ad  you  may  knov/,  v/e  are 
atarting  to  feature  User  Group?  and 
their  programrriers  in  this  colunvi, 
and  since  I  know  these  people 
persoTinally,  it  seems  logical  for  me 
to  spotlight  them  first  since  their 
President  vas  so  easy  for  me  to  get 
a  hold  of. 

Bf'Htu  Cro5ithW4iit«  ivthp"^)  is  ^  pr«si4tnt  of 
TV/BUG.  N«>»JtF  l*m  fwiitchin^  0M«r  ^o  m<  th« 
Prtfidtot 

"I  h44  tU^t  im49<s  of  vfh^.  n  vstt  ^roup  M.<4f , 
•.V4U  b4(fc  t.vh«n  1  vfns  ^.  t5U  in  11$4.  Th«r«  vw^ 
ithtf«  p«oplt  4oino  4H  th^si  4iff«r«n^.  proj^c^f. 

ith<V  "SH  fcf^^'V  Wlk<l<t  ^h«M  VKft  40'm  41)4  W«i'<  4ll 

into  «<i<li  oth«r'f  fi^ijff.  Thinof  lookt4  pr^thj 
m<Kh  iikt  th«  <9M«r  of  i:h«  April  '$$  isiuc  of 
RUN.  Th«r«  M.««r«  th«f«  <omputtri  in  i  i<ir9« 
P4vilion.  Vkit  Ht  Ev«rM  suft«m  >.V4f  4  full 
5VfUm^  4i5*:  4riv««  monitor.  W.nss^KKk^  printer ^ 
thty  proP4M9  4ll  h44  mo4«ras  —  4ti  this  4n4 
th<M   h44  lotf  of  optn  fpvx.      I  don't  tu«n 


7   4i«H4r4  .»4n«j4rM  l^^S 


ivrrivri'iDsii'  iriirikiTi'^  oDout  ioiriiri^  Mnv.  crivis:  <]i«iri'i: 

iKKfu   f.O   liUiiri   Ds:    -iny   ':Ui«.>filV   ffi-irs:.      Ths:    ifnU^K 

W'ji  iu  ri'iv  r«vi}*]  itjf  t  long  vnoui^ri  roi  ruv  ro  iMsotiZw 
it.    It  rrpiM  fi']u<:  C'v^n  t*t£':ouK  i  ijjo<  io  Dusy  ufKn 

*«:fiMMl  —   HH*ii}ih<)  •cl«»:tiMfii<S  —  up  lit  Eilfu.  fiOfiii 

work  —  .:ioi*  jt  7  —  .iuc  ot  z,  uiini  u^fUiK  woiii. 

"I  mo<  piOi^iMri'irmng  (••icfc  tn^ri.  (  r^u  mt 
•joturi  •]  •Mcof^ctu..  io  ( <uui«]  rirfiiiM  i«m\-  wri*i(  i 

i.Ui''>r.s:  on  t'lpv:  {>nfiKi  fMU  TiOUii  CO  CranidiDw  it  •Hi 
to  pOpvi'  UiO  piicFi. 

•My  fyjurii  fioa  .j  fioi.u  jtoit  'in.j  oj  o  »«iijit 
I'm  iijiiKiri'^  in  livrtairi  >h\'n  'lUti  fitrivr  >ii]u>]h<<L>i  in 
otfisi.f.  I  nod  n<:.ii»J  or  con'»n'io«Jorii  euc  .inj 
f.JBUC,  iTii  nor  sua  ..r  rn.i  w:.:o.:t  noni«*,.  rroni 
ufvi  Cioup  iiftin*?*  in  rnv  &o.:k  of  r<oniputvri 
magozin<:{.  Finoiiy  •iPour  •]  yvoi'  o^^o,  i  i.Mi;:nt  to 
n'lM   iooii    Con'in'iodoi'v    mop   iind   criv  iady  ujno 

i.UOt'k>ci]   tns:i'4:   tOl*]  Uik  ObOUt  •]  Uiv>'  d'OUp  •ind  ifii 

•jous:  n'lii  tnifii  n«iaiikttvi.  Hair  q  M<:4r  i4tur  i  ^oc 
inro  on  tinncf  a^oin  •inii  nnoilM  itis:ric. 

"I  rii]4  •]  i'i<4{  9004  tiniii:.  It  ii}>H  4t  a  lOiiCt 
•iKn'i<:nt*]iV    S<U<t(>\    4M  tUiii  Wiik  lOtS  Of  p4upk 

•3n>]  trtwM  ^ki'v  into  voai  otniii'^  iturr,  tr^i'^  ui4s 
•iiMuna  ::o  oi'  <o  (4i  in  tuio  roiuf  riKin*)  out  ftm 
itiii  Kiittiii  or  tn^  loorn.  tui  ^miu^  iai4s  ni^n  ^m 
light  wai  i^ood..  Put  not  >]f  pri^nt  n*  true  in'i*]i?«.  it 

UlOf     not    4    p4Uiii0n,    but    i4(ri«i'    4    St44«    in    4 

•^vr<'iri4fiun'i  tn4t  n44  b<tiiti  <:onu<i!i'ti4  to  4  comput^bi* 
roon'i..  tri%e  <ure4in  4iv4  li  now  4  ui4ii  4n4  xuhh  an 
m<f  I4i'i9«  (liiiin^  r4n<  m4M  up  4t  tu*  top. 

"TU/eUC  n'ivit<  vU^iM  fifit  TriUi'f44M  •>f  (ri« 
n'lonth  41:  Kopp^^  Kiur^n  4t  Zid  Qiiport  uJ4m  in 

BOtfiie  4n4  vU«rM  tnii4  UllC'4nii44V  Of  <iU<:fM  Montri 

iiXi^pi  iuuk,  July  4n4  flu^ust^  4t  J4<icion 
Ekrnwnt4iv  s<riool  4t  3^4  >   cok  P044.  P4rriiiv 

n'kn'it<ei'ihip  if  120  p«f  M<:'3>'  •3r<'l  |15  i'iA«UI4l.    OUi' 

nvui^kttii'  BUG  Bf  TES  \i  puMi<rk4  monthly  4n4 

is  fl'**  to  fii<it(itf<tii." 

M«    4i)4in..    Bi'i4n    ttk    VtiiUi.       t    4i4    4    phon4 

intcfukui  uiitti  T'v'/BUC'f  Ltbi-4i'i4n..  Doug  P4i-i0ni. 
H^  iu4i  uii'v  Duiv  n'lOit  or  (ri«  44v  4<  tri4  hMU44vs 
iiiittit  upon  uf ..  4n4  I  trt4hic  fiirn  roi'  t4K'fng  Cirn«  out 

or  hif  NfV  <<:rk4U4l  to  t4ll(  to  Ui. 

4i«M«r«:    T«H  Uf  4  iittk  4ft«>Ut  ^<fWii\t. 
P«ff4AS:    Uk    54y4h    Ulith    OUi'    <0n'imo40i'«    e4 
4tOUt  riU«  y44t'i  4^4  I  gU%:»..  U^tkA  OUi'  44U4rit4ir 
got     tMi(iit4,       ZUft    4n4    tki'    hUSD4n4    DOUgfit    4 

4irr«i'«nt  kino  or  <ornput6i'  4n4  t(i«M  -^^ui  ui  thkU 
14.  Tn4t  t4uniirk4  u#  in  oui*  coniputvciii^^t  4n4  sincv 
tn«n  iUk'iiK  gonii  rriorni  4  t4  4n4  4  coupk  izsi.. 
rtoi  MS-DOS  4n4  ri4Uih'  4  rk<ic  or  4  goo4  tirrk. 

H4Ming  <0rApUt<<i  iZ64  OUi  DUSi{k«f  i  4ri4  g4M4  RUtfi  4 

wfiok  buncfi  or  toyi  to  pi4v  uiitri  4ri4  uiant  rrorri 

4HkHmi4:     i  kTiOUl  yOU  4i'<ic  4  p«Opk  i^<tiS<^U  UWtU^ 

rk-4i-4  you  t4iic  4t  n-k«tingi  4ri4  giu«  nmtks 
4uring  thk  ufc>rKnignt^.:  oo  you  ^njoy  bkihq  tUk 

CiUD  liDi'4i'i4n? 

P«#f«aS:         V<i4r^     I     4ft...     iVf    4    U«^V    tir#i6 

vons UrAifig  jOD..  i  4li0  tbirik  it'i  4«iC«  4  f6W4r4tft^ 

on4  in  tft4t...  ti-yiri^  t«  cofApik  oil  or  tft«  fiks  4A4 
n'lou^  '^fi'i  4rouri4  4ri4  upgr44«  4ri4  itt^nqk  'Wt,  you 
k4t'n  4  tr«n'kn4ouf  4rAount..  4h4  or  <ourf4  anytiirk 
you  uioi'K  uiitft  4  <0Mput«i  you'i'o  goriAO  k4rft 
fon-ktrwng.  But  in  putting  to^tft(tf  tfk  iifrr4ry.. 
putting  togittk^  4i<kf  or  tft«  rnohtfi^  M4Aipuf4t!ri4 
riks^  rn4icing  <opki  4A4  ft^ipin^  poopk  f  oiuo  tft4i^ 
rik  pi'o&kh'if  4n4  4i<k  probkrAs  —  it  i«4iiy  if 
i'<tui4i'4ing. 

4i*fl«#<:     VOU'Uv  4li'«44y  tOUi:rk4  on  tftii  4  Iittk 

bit.  Houj  4i4  it  411  it4rt  ror  you,  t«H  US  or  tft4 
Cloi'y  44yf  wttku  you  got  youi'  first  <on'iput«i'  oi* 

yOUi'  fitft  ((XpOSUf«  to  <On'tpUt<:i'S. 

P«#S«AS:      LiK«    I  S4y  th4t  h4ppiino4  4bOUt  riV4 

y>b4i's  4go.  Tttit  <iub..  uifkn  an  ft4i't«4  in  —  tftif 
is  bgili  in  4bout  $S  or  ti  —  tfk  nlut  ui4S  only  4 

<OUpk  y«4i'S  014.  Tfky  ri44  just  UtH^iii..  4h  thO 
BOiS«  US«i'  Ci'OUP  4n4  tfk  Ti'«4SU)'4  'J4fky  Club 
n44   nui'g«4    into  tn<:  Tt-«:4SUi'<c   'v'4lky  BO«S«  US61- 

Cioup.  m«*uo  got  40<uri'iicrtts  going  bgiiic  sin<iik 
nz2,.  wk'vi  got  tuk  nowsktti^i  riorn  both  <iubs 
44ting  ri'orn  b4<k  in  zz,.  Z2  4n4  4ri..  iai«  ft«4r4  4bout 
tUit  mtf  son'kWfkKk  4n4  wk  uknt  to  thii  nkctings 
4n4  tn4t's  iurkn  tn^ty  wm  n4Uthg  tn^rn  4t  E0i'4n 


Hign  :'':no«:.|.  iffii  got  into  an  joitj  or  r.ouPk  'Mitn 
tr.s;  j.:nooi  ..usco'iitjn.  Wi  •iu%'t  fi.juv  rininy  uvmk 
ruKU\t*Kii  rnon  mi  tvWst  roooy  —  1  gij«*i  ruoybi 

thiii   '.1.14*   .1   nun4i\4..   but   -IboUt   30   Oi   40  WJS  411 

thjr  {fiouK'i  up  'Jt  f.ttK  rii^ciitings.  iiis:  nouv:  20  to 
It  tn.ir  itioui  up  .It  tuk  nisiitings  to-iay.  Ttiscy 
trytg  lunning  it  tn«in  tn^yg  spur,  into  anotn^i 
loorii  to  noig  .'ics..  or  i.ouiSi  'jt  tnat  tirint  ui* 
•ii4n't  Know  Mjn4t  ^ic  nivnt.  uk  iust  roiioMJ44  tns: 
piopk  ujno'4  s4y..  "H*y..  •:orik  on  rnk'n  gonn4  t4iti 
obout  tnis."  UK'4  S4y..  "H«y..  tn4fs  goog."  M.k 
MKnt  4n4  tisti;:n*i4..  not  Knowing  gnytning  'ibout 
M.in4t  w<i  (MiiiK  going. 

It  iU4sn't  until  grti;:i-  uk  staitcg  going  4n4 
getting  niOi'6  ong  rnoi'*  into  oui'  «;orMpucvi's  tn4t  on,, 
you  k4in  gs  you  go  giong..  so  Wi*  gii  st4it<:4  out 
"how  40  you  tuin  it  on?"  I  splint  4  uv-ry 
ftustniting  fitst  y^gi*  listening  to  p^opk  st4n4  up 
4n4  t4iK  4bout  cans  4n4  ROMS  gri4  Mo4iin'is  4n4 
bits  4n4  byt«s  4n4  aks  rrkitz?:i  'Vvi  jouu^iis 
r.iouisTi  4n4  411  tri4t  goo4  sturr  4n4  rrn  ufon4«i'ing 
uingt  country  iUkik  4ii  'loniing  fiorn  cn4  n4]  it 
u)4s  i'ik4tiy  4t'iui;:n  us  up  tn4  W4ii  4n4  rrk  biing  trk 
sny  p<kison  to  st4n4  b4<k  4n4  kt  —  snut  up  Rutn 
—  rrk  bluing  tn<;:  sny  person  to  st4n4  b4>:K  4n4  kt 
•;:u<[i-yboby  iust  i4ttk  —  i  ui4S  •:onst4r»tiy 
intjtrupting  nk^tings  S4yirig^  "Hoy.,  l  4on't 
uri40i'St4h4"  oi'    (1*41  4Stc  4  guistion  "yo4ri..  now 

wri4t  414  you  S4V?"  4n4  WO'4  St4i't  411  OUOi'  4g4in 

4n4  poopk  4t  tft«  <m  st4rto4  corning  up  to  rno 
S4ying,  "Hoy  rrn  suio  gi44  you  4i4  —  uiby  4rA  i 
4IUI4US  ttk  ono  out  tftoro  [ho  h4]  S4y»ng  i  4on't 
un40t'St4n4?"  >o  it  got  to  bo  g  st4n44r4  joico 
ouoi'y  tin'k  Ooug  uioui4  conk  into  tho  looni 
sornoork'4  S4y..  "4gri,  bo  4oosn't  know  bow  to 
tuih  it  on  yot."  Qn4  4ri..  it  W4sn't  till  i  ma  roir 
•:lub  pi'osi4ont  —  i  still  4i4n't  know  bow  to  woik 
tno  •lornputoi'  4it  tb4t  goo4..  but  4A  tftoio  woio 
poopk  in  tfto  (lub  tbot  ioui4  4n4  tnoy  just  noo404 
to  n4uo  sonwbody  st4A4  up  riont  4n4  S4y..  "t4lk 
to  us  4bout  this  4n4  you  ton  us  4bout  tnot  4ft4 
you  giuc  us  4  4on'iOAsti'4tion  on  tft4t"  trky  woui4.. 
if  you  4sko4  tnorn  to  trioy'4  4o  it.  Qrt4  4rtor  4 
M>upk  yo4/s  4S  Pros«4ont  i  got  so  i  <oui4  tuin  it 
on.  Qftd  tboA  I  w4rito4  to  k4i'n  4  lot  rnoio  4ri4 
tftot's    wfkA    I    uoi4ntooro4    to    bo<orirk    (trk) 

libi'4i'i4A. 

4UIUU4:     ooos  TV/6UC  orror  tnoir  <4t4ioguo 

OttAOf  iAAOi'StgtO  or  iAtorst4to? 
P€f f  •■S:    uio  n4Uo  vurroAtiy  sont  our  <4t4ioguo 
to  trk  ton  ciubs  tn4t  wovo  ox<b4hging  4isks  or 
trk  rAOfitft  witA.   >o  tAoy  aomo  our  «:4t4loguos^  wo 

ri4U0   tAOir  <4t4l04U0S  4A4  tAOii   <:4t4l0gU0S  4i'0  lA 

our  <4t4ioguo^  so  that  ir  sorrkbo4y  rrorn  our  <iub 
w4At44  4  4isk  rrofA  tAOir  (lub's  (iibr4ry)  wo  <0UI4 
got  it  on  4A  ox<cri4Ago  si4o-ror-si4o  t>^*is  or  wo'4 

S0A4   trkA'i   4  4iSk  —  tAoy'4  S0A4  US  4  4iSk.     Z<f 

tAoro  is  auito  4  bit  or  iAtor<A4Ago  orriouAg  4  row 
or  tAo  tiubs  ia  tAo  usor  croup  4ro4  4<ross  tAo 

St4tOS. 

4i4%mi4'.  00  you  orror  4Ay  <orAfAor<i4i  titks 
tArougft  tAo  libi'4ry? 

p«f««fts:  vos,  WO  orror  Tft«  9fic«  sttrr, 
wovo  4  iisoA(io-4istibutor  or  TM  mtit4  scvrr, 

wbi(A  is  4  i:ornorct4l  progr4rri.  4A4  wo  oiso  soil  tAo 
Fm  c#«pfti<s  H«ciiA«  wbi<A  is  4  uory 
outst4A4ing  grgpAics  rrigrtipuktiAg  progr4rri  »  4  lot 

iikO^   won    it    400S    4  lOt  or  tAO  SWtk  tAiAgS  tA4t 

CEOS  400S.  It  goosh't  A4U0  quito  tAO  S4rrk 
gr4prii<s  oAuiroAA^oAt..  but  you  kOA  got  in  4a4  4o 
your  kttois  4A4  sigAS  4A4  sot  up  p4gos.  ...4 
cross  botwooA  4  gr4pAi<cs  progroiA..  4  pubiisftiAg 
Pi'ogr4iiri  4A4  4  wor4  pro<ossor.  To  try  to  <ombino 

tAO  okrrkAts  of  oil  tbroo  iAto  it wo  .iust  buy 

tAorn  rrorri  tAo  4istibutoi  4t  4  4is<ouAt  4A4  soil 
tAorn  to  our  dub  nkhibors  4t  tho  sorrk  pri<o  4s  ir 
tAoy  wont  4iro<t.  0A4  tno  dub  rri4kos...  oa... 
(from)  firty  conts  to  4  4oii4r  on  ouory  p4<k4go  — 
it  isn't  4  tromon4ous  4mount.  But  it's  4  S4uings 
or  two  or  tbroo  gollors  to  our  mombors. 

4i«fi<s«:     WA4t  poicont  or  tno  progr4ms  in  tno 
Itbr4ry   woui4    you  guoss  woro  writton  in  ond 
4roun4  this  4ro4  (this  4ro4  boing  Boiso  4n4  tAO 
surroun4ing  Tro4suro  U4iky.i? 
p«/s«Bf :    I  4on't  know  4bout  gny  or  tno  o4rKor 


progrorris  --  lUv  r.og  guit;:  -i  r^uj  p..:.g,.]rMrrt.i.j 
riiany,  rnany  yciri  'igo  triot  i.uiots:  o  nw  cut  i.ui 
n.iM*  s<>r{^K  progt'iriiriiiiis  r»oi.u  rnat  or«i  i.uiitirig 
sorns:.  I  .;.in't  i  colly  giui  o  p^r Mintage  vf  fnot  r.>. 
tbv:  lintiii  lipMiiy..  but  lot  fik  rMtntiofi  tri<i 
piogiorrif  cnot  u»Wk  b>:iri  put  in  tno  libroiy  in  f.TtK 
last  yiOi'  tn4t  I'm  gotting  i\44y  to  up44to  mUi 
•;4t4iogu4  tno  i4ttoi-  or  tnis/rirst  port  or  no:a 
fiiontn.  rFi'orrii  tno  programs  wii'uo  put  in..  wo'Uii: 
got  4isks  of  tno  montn  tn4t  wo'uo  roviouog  riom 
otnor  dubs  wnicn  aro  gown  loaaoa  rrom  an  omvi. 
But  tno  local  progrorris  —  i  woutg  soy  about 
twonty  porcont  or  tno  prograrris  tnot  wo  nauo  put 
in  our  libiory  this  yoar  nauo  boon  Lurittcn  locoiiy.. 
by  our  two  or  tnriift  programrricrs  wo  nauc:  in  tno 

ClUb. 

4i*ll€f4:  Ono  rinai  guostion  ror  our  i044ors 
wno  oitnor  aro  thinking  or  going  tno  PO  iibrory 
thing  or  airoggy  oro  a  usor  croup  Libiorian..  wnot 
tips  •:4n  you  orror  rrom  'A  yoars  OApiiiionco? 
P«fs*ftS:  I'm  in  my  socona  yoor  as  librarian. 
Tho  biggost  tip  I  <4n  soy  to  noip  otnor  ciub 
niombors  ras  a  Libr4ri4n}  is  to  h4uo  tno 
prco44uro  writton  gown..  4n4  try  to  st4n44r4is>k 
your  4isks..  not  th4t  you  can't  go  innouotiuo  — 
put  out  on  oxtrg  now  4A4  tnon  --  but  houo  a 
st4n44r4izo4  4isk  form4t  th4t  you  uso.  it  grootiy 
spoo4s  up  tho  ontiro  procoss.  M4ko  st4n44r4izo4 
I4bks,  h4uo  4  st4n4i£0'4  formgt  ror  your  4isks 
4n4  4IS0  corrospong  uory  rk4Utiy  witA  librorios  of 
otAor  dubs..  4A4  if  4t  411  possibio  got  4  4isk  or 
tAO  moAtA  oxcA4hgo  WitA  tAOM  SO  trt4t  you  con 
swop  progr4n'is  4a4  ri4uo  4  giogt  (4rriouht  ori 
input.  uiAon  I  rirst  took  ouor  tno  dub  [th4t  W4s 
Prou4i4A!]  or  ouor  tAo  Iibr4ry  wo  A44  uory  row 
(progr4msi  »  i  couign't  got  onougA  progroms  to 
rnoko  up  4  4isk  or  tho  rnontA  4A044.  To44y  i 
A4U0  4  notobook  fiik4  witA  4tsk  4iio<torks  thot  i 
h4U0A*t  gottOA  4r0UA4  to.  If  I  houor  ro<iooo4 
4notAor  progr4n'i  i  (oui4  prob4btv  go  4  yo4r  or 
riUing  4isks  or  tAo  moAtA. 


our  list  this  nvonth  consits  or  progrgmmors  from 
TV/BUC. 

Tho  first  progrgmmor  is  mysoir.  (Thoy  4ro  iist>k4 
4iph4botic4liy  by  I4st  n4rrk..i  i  writo  4 
howskttor  C4lk4  «i*N«rtf^  4n4  my  progr4mming 
rorto*  is  4rt.  M4iriiy  rri4tAom4ti<4i  4rt.  i  progrgm 
ror  tno  commogoro  Pius  4..  i$..  zo,  (.4..  4A4  mz.  i 
4IS0  pro^grA  Tirnox  Sind4iro  1000  ^  isoo.  Qtori 
200  3»  500XL,  CP/M  BPSIC..  CWBOSIC,  Tl  11..'40.. 

4n4  mony  or  tho  oi4or  rrk4chiAos. 

scot  oorror  is  our  noxt  Progr4rrinrkr.  (Ho  4oos 
this  ror  4  iiuing..  so  no  knows  o  uttio  4bout  tno 
subjoct).  Ho  ri4s  progr4rAS  ror  tno  commo4oro 
prihtor/piottor  4A4  Epsori  Hi-$o  piottor  tAot  4r4W 
?4  gr4pAi<s  4A4  rr4ct4is.  HO  4IS0  ono  or 
TV/Bucs  ceos  HOlp  aro4  poopk. 

HOXt  is  0U4rk  FOVtO.     HO  A4S  WiittOA  iOtS..  4n4  I 

mo4n  lots  or  utiiitios  for  RUN  P«iftt.  ho  hgs 
writtoA  souorgi  4omo  typo  progr4ms..  i  S4W  ono 
4t  TU./BUC's  i4st  worknognt  mootiAg,  it  wos  a 
.i4cobs  i4444r.  Tho  AoA-Awuing  pgrt  or  tno 
picturo^  by  tho  W4y^  Ao  A44  4r4wn  using  run 
P«iAC^  so  it  you  A4U0  4Ay  guostioAS  on  this 
gro4t  p4iAt  progr4m..  no's  tho  ono  to  ask. 

Tho  l4St  on  our  list  is  Qi  H4k..  ho's  tho 
oguiprrkAt  m4A4gor  ror  tAo  group  gn4  ono  or  tno 
Progrgrnmihg  Hotp  Q/04  poopk.  ir  you  h4uo  any 
guostioAs  on  progrgmmiAg  iA  gonoral^  ho's  your 
m4A.  HO  4IS0  h4S  khowokgo  OA  EPDOM  burning, 
in  roct..  ho  is  going  to  4o  som«  burn-ihf  at  tho 
noxt  wor knight  rrkoting..  so  if  you  fir»4  yoursoif 
in  Boiso  on  tho  SOth  of  Mnuory,  you  shoui4  chock 
it  out. 

if  you  w4At  to  contoct  4ny  or  tnoso 
progromrrkrs..  rool  rroo  to  4o  so.  Bo  suro  to 
ondoso  4  soir  444rosso4  st4rripo4  onvoiop  with 
your  kttor. 


gkH4r«l  .ignugry  ii*?? 


a  'loupk  Mf  auicii  uitus  a&out  f.UH  i.m,.  mUi'  rrkvtirifi  ^i^  vpiith  to  crisc  puMi(  >]rii]  uou  >]i'4  rrivH\  crion  uj<:Uornv  to  <oriu  'KiiJ  k^  uirnit  its  an  aDout.  ijJv  ai v 
•Ktiui;:  in  •:>>nirrturii(v  v*]u<a(iori.  E4*:ri  ^^k^w  tx^k  •:tu&  Udaivs  iUuins  on  •loriipuci^i'f  in  Boii^  •]»•]  Kuna..  laatio.  Oori  Eaiv<(ia  \s  'Jk«  p>i<{i>Knc,  '-..'via  Es:iMfio  ts 
f.Uk  ZiiK(<if.n%\^  arid  Ruth  Pai'forii  is  cr»«  Ti'ii4$ui«i.   Si<nd  ail  <0i ispori>3i;:n<v  to  Ti<:asui'4  uatkv^'Boisii:  Ui^r  Croup..  P  0  Box  tzti^.  eoisv,  !D   <:;tot. 


And  nov/,  this  month's  LIST. 
Prograwwer 
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Brian  Crosthwaite 


BASIC  PrograMMing, 
SH0PLISTER16  (runs  on 
CoMWiodore  16  or  ♦4> 


LynnCarthi;  Ind 
P  0  Box  392 
BQJgg  IP 8379i 


Scot  Derrer 


Graphics  &  Fractals 
the  MPSi52e  Printer/ 

Plotter  and  Epson  HI-8Q 


The  Plotting  Shed 
1529  LongMent  Aue 

Boise  IP aazas 


Duane  Forte 


Utilities  for 
DeHO  PrograMs 


RUM  Paini:   Duane  Forte 

1428  Highland  Uiew  Dr 
Boise  IP aaifl2 


Albert  M.  Hale 


PrograinMing, 
buring 


EPROH 


Albert  M.  Hale 
3825  N  Maple  Groue 
Boise  IP 83784 


If  M^Ui'  ^*<ti  Ci'oup  mould  iik<c  a  pi4C4  in  tri«  un4«i'9roun4..  \kK  us  knooi.  mf  is  ni«r«  (ftan  a  Kit  or  ism  Cioups  Uf4  uiant  to  staa  httUt,  mk  u^ant  to  titdtwk 
pio^raiYihuri  and  tn^ic  pto^iarrif.  Pio^rami  M4V  app«4/  in  pqc..  if  th«  autftari  44fii'4  that  rpQC  noiM  4««pti  sn4r«uf4r«..  f ««  PQC  roi-  44t4ili]i.  m«  uiiii 
pi4<o  Moui'  ^roup  in  tri4  spotlight.  mh4t  Kind  or  inrorM4tt<in  f noui4  u^r  cv^upi  s «n4?  Jhki<  uwtk  4n4  444/4if  4n4  4  stum  4rti<u  44t4iiina  u^^ot  tn^y  4o  in 
tn«ii  rrtc«tin^f .  Qn4  most  tn'ipoi't4rit  4riy  inro  on  pot^fWtfttka  uino  s«ii  out-ri<int  (4  fMaii  company)  oi'  90  tnrou^h  pd  <ri4nn«ii  (Frik«ui4r«^  sn4rftu»4^«  or 
PuMi<  oom4in)^  mn4t  Ktasit  pt'04r4rris  40  (f  4n4  tn«rA  in  ror  i'<cOi«u)!3,  4ny  rutur«  pi-o^4Mffiin4  vkMwkt,  4n4  444r<tssfts  r^i-  tn«  list,  qiso  4ny  irirorM4tiun 
you  <4n  tnink'  or  tn4t  rnay  fr«  4ppiopri4t«  t«  RORiTfE?. 

any  <orAp4ni«i  tn4t  suppoirt  any  c*MAM##t  Kompuurs  in  4hy  may  (fortuf4<a  or  narauiort)  <4h  s«a4  uf  your  aaorftsf  4fi4  ui4'ii  irii:iu4«  tn^m  in  tna  list  4* 
ui«ii.  tUk  <iik  taiKin*  support  ri*4r!  itus  use  if  not  4n  44  —  iff  on  au«riU4  t^t  our  r64a«r  t<»  roitoui  ror  rurtn«r  fupport. 
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WMT  --  no  DiSli? 

by 
Brian  L  Cro3thvarte 

Checking  For  A  File'3  Presence  To  Prevent 
A  Crash 

The  topic  of  today  13  not  juat  missing  disks,  but 
missing  files  as  veil.  When  running  a  program 
that  accesses  a  disk  that  is  missing,  a  crash  Is 
just  around  the  corner. 

There  are  several  ways  ^'ound  a  potential 
crash.  The  first,  and  possibly  the  easiest  is  to 
simply  tell  the  user  to  Insert  the  proper  disk  into 
the  drive.  This  does  not  ensure  that  the  device 
vlll  be  turned  on  and  ready  when  It  comes  time  to 
access  the  device. 

A  simple  test  is  to  rename  a  file  that  Is  on  the 
disk.  Even  if  the  file  is  not  there  the  proyam  will 
not  crash.  Hov/ever,  you  v/111  have  a  number 
placed  into  tte  error  channel  area  of  the  drives 
memory  that  can  be  read  as  a  variable,  in  this 
case  --  ER.  This  number  can  help  your  program  to 
decide  what  to  do  next. 

Why  rename  a  file?  Well,  if  you  try  to  operi  a 
file,  the  computer  v.'ill  want  to  tell  you  that  there 
is  a  read  error,  but  will  not  report  it.  Instead,  the 
program  will  simply  crash  with  a  break  error  and 
your  drive's  light  vill  be  left  flashing. 


You  v/ill  want  to  keep  the  name  the  same  so  it  doesn't 
really  get  renamed.  If  the  file  name  is  a  fictitious  name 
or  is  not  on  the  disk  the  program  continues,  but  the  error 
Is  reported  to  the  error  channel  and  the  drive  light 
remains  flashing. 


0PEM13 «  8  ,  13 .  "R8 :  OLDN AI1E»8 :  HEMH AHE" 
:CL0SE15 

This  will  rename  a  file  in  BASIC  2.0.  We'll  alter  this  a 
little: 


0PENlS,8,15,"Ra:FILENAHE»FILENAHE'* 

: I NPUTttlS . ER : CLOSEl 
IF  ER»63  THEN  FILE  IS  PRESENT 
IF  ER=62  THEN  FILE  NOT  PRESENT 
IF  ER=21  THEN  DISK  IN  DRIUE,  DRIUE 

DOOR  OPEN 
IF  ER:=:74  THEN  NO  DISK  IN  DRIUE 

Note  that  these  error  re|»rts  (ER)  are  not  exactly  what 
they  are  in  your  manual,  but  they  better  represent  what 
the  actual  problem  MIGHT  be.  Now,  what  to  do  with  this 
information.  The  best  thing  to  do  is  let  the  user  know  what 
is  going  on,  even  if  all  is  well.  Here  is  a  simple  sample  of 
v/hat  can  be  done  v/ith  this  technique.  Type  in  the 
following  just  as  you  see  it  here  and  save  it  as  'PRGl." 


i»   •li«H4r4  Mnuary  MY^- 


BOOOe  REM  4H(«  SUBROUTINE  TO  READ  DISK  fww 

eeeie  print  chr$<i47>"place  disk  in  driue  and  press 

<SPACE>" 
66628  GETA$:IF  A$<>"  "  THEN  66626 

60036  OPEN  i5,8,15,"R0:PRGl=PRGl":IHPUT#tl5,ER:CLOSE15 
66646  IF  ER=74  THEN  66616 
60050  IF  ER=21  THEN  PRINT  CHR$(147>"CL0SE  DOOR  ON  DRIUE 

AND  PRESS  <SPACE>  ":GOTO  66626 
60060  IF  ER«62  THEN  PRINT  CHR«<147>"FILE  IS  HOT  PRESENT" 

:FOR  T=6  TO  4999: NEXT :G0T6  66616 
60070  IF  ER063  THEN  60010 
66686  PRINT  CHR$<147>"AH,  SUCCESS!" :REM  RETURN 

Vv'hen  you  run  the  program  it  v/ill  instruct  you  to  place  the  disk  in  the  drive  and  press  space.  First  open  the 
drive  leaving  the  disk  in  it,  then  press  space.  Nov/,  take  the  disk  out  of  the  drive  to  see  vhat  happens  and  press 
space.  Try  it  again  vith  tlie  v/rong  disk  in  the  drive.  Lastly,  place  the  disk  with  the  file  on  it  in  the  drive  v/ith  the 
door  closed. 

This  little  routine  can  be  altered  anyway  you  ••//ant  and  can  save  you  some  time  and  grief.  There  are  also  a 
variety  of  vays  to  use  this  routine.  For  instance,  you  couW  have  a  main  program  that  •.■/rites  a  small  file  on  all 
your  v/ork  disk,  just  so  it  can  later  check  to  make  sure  you  have  a  v/ork  disk  in  the  drive. 

If  you  have  more  than  one  drive,  you  can  check  all  drives  present  for  the  file,  or  you  can  access  the  last  drive 
accessed  buy  looking  into  location  186  (64/128/VIC)  174  (16/+4).  This  holds  the  present  drive  number. 

DN=PEEK<186>:IF  DN>15  OR  DN<8  THEN  DN=8:REH  DN  IS  THE 
DRIVE  NUMBER  AND  MILL  DEFAULT  TO  8  IF  NO  PREVIOUS 
ACCESS  HAS  OCCURRED  CDN»PEEK<174>  ON  16/+4] 

OPEN  13,DN«15,"R0:PRG1»PRG1":  INPUTttlS.ER 

IF  ER=. . . 


or; 


INPUr'NUNBER  OF   DRIVES"; DP :DP=8+<DP-1) 

FOR   DH»8    TO    DP 

OPEN   15, 8, 15,  "RB :  PRG1=PRG1"  =  IMPUT*»15,  ER 

IF    ER-. . . 

NEXT   DN 

Let's  put  it  all  together: 

10  INPUT  "NUMBER  OF  DRIVES  0N";DP:DP=8-»<DP-1> 

20  IF  OP<B    THEN  IB 

60BBB  REM  SUBROUTINE  TO  READ  DISK  OH  MULTI-DRIVE  SVSTEM 

68818  PRINT?CHR$<147>"PLACE  DISK  IN  DRIVE  AND  PRESS 

<SPACE>" 
68828  GETAS-.IF  ASO"  "  THEN  68828 
60822  FOR  DH=8  TO  DP: REM  LOOP  BEGIN 

68838  OPEN  15,DN,15,"R8 :PRG1»PRG1": INPUT«1S,ER:CL0SE15 
68848  IF  ER=74  THEN  66818: REM  NO  DISK  IN  DRIVE 
60058  IF  ER»21  THEN  PRINT  CHR$<147>"CL0SE  DOOR  ON  DRIVE 

AND  PRESS  <SPACE>  ":GOTO  60820: REM  DRIVE  CAN'T 

READ  SVNC  CHAR 
60866  IF  ER=62  THEN  PRINT  CHR$<147)"FILE  IS  NOT  PRESENT 

:FOR  T»8  TO  4999 : NEXT : GOTO  68018 : REN  FILE  HOT  ON  DISK 
60070  IF  ER063  THEN  60616: REM  FILE  EXISTS 
60088  PRINT  CHRS<147>"AH,  SUCCESS! " :REM  RETURN 
60090  NEXT  DN:REM  LOOP  END 

V^'hat  you  do  with  the  info  Is  up  to  you.  This  ahouM  give  you  a  good  Idea  of  vhat  you  can  do  and  sTiould  help 
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eliminate  a  possible  crash,  making  you  the  throbbing  hunk  of  pov/er  user  you  really  are! 

PART  II 

VIC28 — + — + — + — CBM64 — + — + — + — C128 — + — + — + — C16a+4 — + — + — +- 

Turn  on  cartridge  program 

<;v<t;t.->592 

WAIT  for  keypress 

<x=  i=<SHIFT>,  2=<C=>,  3=<8HIFT><C=«>,  4=<CTRL>,  5=<SHIFT><CTRL>, 

e=<:c=><:cTRL>,  7=<:shift<c=><:ctrl>) 

P0KE653,e:UAIT6S3,x 
PQKEfiSa.arUAITBSa.^ 

Detect  alternate  keys 

(38=no  alt  ke;;  or  nornal  key  pressed,  ie3=<SHIFT>,  168=<C=>, 

233=<:CTRL>) 

PRIHTPEEK<236> 

READV. 


by 

Brion  L  (.rosthwoite 


Mcom  to  the  yefir  1t13l  Let's 
turn  our  wou  bock  mochines  to 
1*186.  Ihe  bock  side  of  the 
l-ieydny  hill  of  the  computer 
resolution.  You  could  get  just 
cibout  anything  on  the  morket 
for  the  commodore  61 
Hcorsoy  Incorporoted  hod  just 
releosed  the  HCflKSaY  1008.  fl 
ccirtridge  obout  the  size  of  the 
]7yy.  cartridges  commodore 
hod  (mode.  Uith  the  cortridge 
the  commodore  6t  could  not 
only  tolk,,  it  could  listen  os  uell. 
This  month,  ue  tnke  o  look  ol 
thot  cortrldge  ond  uhot  it  reolly 
does. 


"ilmm 


1 


rewQuer'eHlrG'ol^. " 
Brion  L  [roslUiile 

The  051000  is  n  reolly  cool 
deuice.  To  rnoke  o  progrom 
speok,  fill  you  do  is  octiuote 
the  cortridge  ond  you  don't 
need  to  lood  ony  other 
progroms  to  produce  speech. 


But,  there  is  o  requirement  os 
uell  OS  Q  giue  ond  toke.  Ihe 
progrom  most  print  text  to  the 
screen  ond  print  it  in  o  color 
other  then  the  screen  color 
(although  some  mochine  code 
progroms  cnn  mysteriously 
moke  It  tolk).  But  this  con  be 
good,  if  you  houe  o  progrom 
thot  loads  other  progroms  using 
the  dynomic  keyboard  technique, 
printing  text  onto  the  screen 
the  some  color  os  the  screen, 
'^ou  uon't  heor,  "lood  loser 
blost...  seorching  for  laser 
blost,  etc."  Just  About  ony 
program  with  text  uill  speok. 
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program,  after  londlng,  before 
or  ofter  rurminy  by  presslnci 
4,iSK\?,(>-,  I  he  only  uoy  you  rrm 
tell  yoi.i'ue  entered  HSIOOO's 
enulronment  Is  thnt  the 
computer  tells  you  ond  the 
cursor  disoppeors, 

fill  things  considered,  the  5flY 
side  of  the  HCRKSRY  1000  gets 
'*  %tt^,\  fi  perfect  score  -- 
so  for. 


m  s@is|i)0@  olF  ^fFm  gmigikg 
aPSaoo  Ihe  4iS]Myb  key  Is 
used  to  nctlunte  the  HSIOOO'ond 
therefore  the 

4Mm?--<mmb  coiTihinotion 
will  no  longer  get  you  out  of  o 
jfim.  Another  hummer  Is  thnt  you 
cfin't  use  SHY,  like  other  uoice 
progroms  do,  Ihis  meons  ony 
thing  sold  must  be  uisible  on  the 
screen  os  text,  flou,  I  houen't 
tryed  redefining  the  chcirocler 
set  to  be  blonb,  but  color 
memory  would  houe  to  be 
inuolued,  so  thnt  might  not  uork 
(printing  m  inuislbie  message  to 
the  screen  in  hopes  to  houe 
speech  thot  is  unseen). 

Ihese  things  oside,  the  speech  is 
rother  good.  Just  locid  your 
progrom  -  text  odMentures  ore 
on  obuious  choice  --  ond  press 
^R^5T0I?^>.  the  computer 
fepondes  yith  "Heorsfiy  1000." 
Press  ■6>  ond  heor  "string 
tcKt,"  folloued  by  ^n>  -- 
"String  text  uill  nou  be 
spoken.."  Lostly  press  4i]\Mi- 
ond  with  0  "return,"  your 
progrnm  uill  nou  speok. 
Substitute  -sKi-  for  <■>>■  ond  the 
keyboard  echo  uill  turn  on.  The 
some  key  sequences  uill  turn  off 
uhnt  Is  on  or  turn  on  uhnt  is 
off, 

Ihe  uoice  con  be  changed  from 
uithin  the  HSIIBS  enulronment, 
it  con  be  sped  up  or  sloued 
down.  It  can  be  made  lower  or 
higher  with  uoice  ond/or  pilch. 
Uords  con  be  mode  to  be 
pronounced  differently  by  making 

0  file  that  loads  into  the  Editor, 
giuing  a  proper  pronounciation 
or  to  creote  on  occcnt. 

1  ou  con  enter  the  HeflSSOYIOOO 
at  ony  lime,  before  looding  o    Ouer  all  score?  *  t,  (If  you 


look   nl   It   ioley   ns   o  speech 
cortrldge,  then  moybe  o  *  s^  * 


READV, 


Uell,  let's 
foce  it,  hnuing  o  chonce  to  look 
at  two  different  HSIOOOs, 
niether  one  responded  loo  well. 
The  Deno  disk  thot  come  with  it 
was  geared  at  the  tKHRing 
portion  of  the  US.  ft  game  called 
Bquq's  Circus  has  a  clown 
leochlng  o  doss  on  shnpes.  You 
get  to  train  it  in  your  uoice;  it 
neuer  learned.  It  could  not 
decifer  the  word  "squore"  from 
the  uord  "circle".  The  unit  con 
he  Irolned  to  recignize  6f  uords. 

The  HCflfi  side  is  olso  full 
feoturcd,  but  don't  expect  much, 
like  most  speech  recognition 
programs  for  the  6"^,  you  wind 
up  training  yourself  insteod  of 
the  computer.  This  side  gets  $ 
--  for  the  grophics  on  the  DfftO 
disk,  if  nothing  else. 

M^  Some 
of  these  units  houe  n  SHIFT  load 
program  built  in,  mine  is 
supposed  to  houe  it,  but  uhen  I 
press  ■'0\  all  it  says  is  "string 
text  -  recognition  Is  nou  off," 
-  no  matter  uhol.  The  suift 
load  could  concieulbly  load  a 
program  5  limes  its  normal  load 
time  -  good  luck,  I  don't  think 
this  wtr  really  got  Impllmented, 


by 

&rian  L  Crosthwolle 


ISil  I  houe  on  old  8088  mochine 
thot  con  run  HS-DOS  on  It.  How 
do  you  open  one  of  the 
subdirectories  on  my  program 
disks  and  get  bock  out  oogin? 
08  In  DOS  3.2  you  con  use 
chonge  direcorg  OIRflflflC  by 
typing;  "cd  dirnane", 
where  MMi  is  the  nome  of 
the  directory  that  you  want  to 
open.  Then  "type  "dir  yp"  to 
poge  though  thot  directory,  the 
computer  will  prompt  you  to 
press  any  key  to  continue, 
(dir  alone  will  list  the 
directory  without  stopping.)  To 
get  back  to  the  original 
directory  type!  "co . . "--  with 
no  spoce  between  "0"  ond  ".", 

|8  Uhy  did  you  onwser  thot  lost 
question?  Phot  are  you  o 
two-foced,  bourgeois-fascist, 
bnck-stoblng,  hypncrltic-DOS- 
louer  ? 


Uhol  happened  to  the 
answer  to  the  second  question? 
S8  I  really  don't  know,  lihol 
wzr  do  uou  mean? 


Uhol  exQclIu  Is  Inlerlnce 
mode  on  the  lilC  20"? 


•ii«H4i'd  mn'h^i  mi  n 


Sli  llhen  the  I^IC  uns  beirnj  mode 
tu  stnndords  uere  chonqing, 
Ihitiys  uofked  ci  little  different 
on  the  older  tus.  thon  they  do 
nou.  On  older  tus,  the  PIC's 
picture  uould  Freek  out  the 
iW^'.>  '^'id  the  picture  uould  not 
fit,  cijuiiny  u  rolling,  slnntted 
rness,  lo  fix  this  the  PIC  could 
changed  the  scnnlines  thcit  it 
urote  to,  by  o  simple  poke. 
P0KE3e864,i33  tums  It  on, 
ond  P0KE36864, 5  turns  it  off. 
flou  somebody  urlte  n  program 
thot  sends  tuo  different  screens 
to  the  tuo  sets  of  scon  lines, 
switching  them  really  fost  and 
you  con  hnue  thot 
double-your-uertlcol-resolution- 
fl!cker-the-heck-out-of-the- 
screen-driuen-you-cro2y-kind- 
of-graphics  that  Amiga  and  128 
users  nou  enjoy. 


joysticks  do  you 
recomend  for  gaming  on  the  6f? 
I3B  fly  ail  time  fauorite  stick  is 
the  TflC  2  (Totally  fluesome 
Controler  2  -■  I'm  not  kidding, 
that's  uhot  it  stands  for  --  and 
it's  true).  This  control  is  totally 
precise.  The  fire  buttons  tend  to 
uear  out  on  them,  but  not  after 
giuing  you  a  couple  of  years  of 
the  best  gameplay  you'ue  ever 
experienced. 

Send  your  Qs  ond/or  your  fis  lo 
dieRord.  DTTn  m,  P  0  Bok  m. 
Boise,  Idaho,  83701. 
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For  the  next  several  months 
dieHard  v/lll  be  running  a  39  part 
series  on  the  complete  ins  and  outs 
of  the  1541  disk  drive,  by  Joel  Rea 
and  Jim  Weiler  of  LOADSTAR. 
DOS  and  DOITTS  originally 
appeared  in  the  premier  issue  of 
LOADSTAR  and  LOADSTARa  there 
after.  Because  the  information  is  as 
vital  today  as  it  v/aa  back  then,  ve 
are  running  the  complete  series  (with 
LOADSTAR'S  permlslon  of  course). 
Since  the  first  tv/o  installments  deal 
v/lth  a  tot  of  history  of  Commodore 
computers,  they  are  appearing  here. 

The  Complete  DOS  and  Don'ts 
is  available  on  1541  disk  from 
Softdisk  for  $9.95  -h$4.50  shipping 
for  2nd  day  delivery.  Softdisk,  P.  0. 
Box  30008,  Shreveport,    LA,   71130. 

P  ft^U  ^.0  Ufit'f .  thff  dtfk  ii  tff(  tht  ^4^  Nt  Kht 
infOfm^tiOh  f.tt*}kif  KUk  1S41  4t«k  4<\U.  *ltl4  tS 
^fiWtfWt  r«Uv4ft^  ^>  '111  <'>f{iWAk(*  Vf'Ah  2.0  H 
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Joel  Olis  Reo 

first  there  uos  the 
Commodore  2001  Personal 
Electronic  Transactor  (P(T).  It 
uos  one  of  the  first  personol 
computers  on  the  market.  It 
hod  0  uhopping  tK  of  9M,  an  8K 
BASIC  in  fiOn,.  and  a  Kernol  to 
control  input/output  and  other 
system  operotions.  It  used 
Commodore    BftSIC    Uersion    1. 


There  utn  no  disk  driues 
then,  but  provisions  'Mn 
mode  in  the  form  of  on 
ICCe-t88  General  Purpose 
Interface  Bus.  It  also  hod  the 
funniest  little  keyboard  you 
eucr  sou! 

Commodore  then  Inuenled 
the  cOtO  Dual  Floppy  Disk 
Driue.  It  uos  on  industry 
first.  Insteod  of  requiring  the 
main  computer  to  control 
euery  tiny  detail  of  disk  drlue 
operotion,  not  to  mention 
loading  a  (large)  Disk  Operating 
System  COOS)  into  the 
computer's  M  In  order  to  use 
the  drive;  it  was  an  intelligent 
driuc,  uith  its  oun  computer 
system  inside,  and  Its  oun  DOS 
In  ROri!  By  simply  P^ITITing 
commonds  to  its  commond 
channel,  BRSIC  users  could 
SCRBTCH,  P.Cnflf1C,  and  COPY 
files,  and  DUPLICflTC  an  entire 
disk  uithout  any  further  help 
from  the  computer.  Only 
problem  uos,  they  could  not 
SflllC  or  LORD  programs,  or  use 
data  files. 

The  problem  uns  in  BASIC  U1. 
It  didn't  knou  obout  the  timing 
inuolued  uith  actually 
transferring  doto  bock  and 
forth  bctueen  the  computer's 
f^Ad  and  the  disk  driue's 
computer.  So,  Commodore 
creoted  Upgrade  BASIC  (nou 
knoun  as  BASIC  112.).  ond  put  it 
Into  a  neu  PCT,  called  the  2008. 


15   di^Hird  J4nu<]rv  M^:- 


It  hod  8H  oF  Rflfl,  n  RtflL  keybooed 
(ijnlike  other  coiTipcinles, 
(uffiiTiodoi-e  \\iK^\  tried  o 
rinky-dink  keyboord  iKji:iiri!),  ond 
it  could  use  the  disk  driue! 

But  the  im  driue  hcid  its 
ffiuiti  ijs  uell,  It  couldn't  hondle 
rfindoiTraccesi  files  (one  of  the 
most  importonl  nduontnges  of  n 
disk  driue  ouer  ci  tope  driue!) 
uithout  0  LOI  of  effort  on  the 
user's  port,  it  couldn't  trop 
errors  correctly,  it  required  the 
user  to!  0rcni5,8;l5;'l";a0-3(15 
euery  time  the  user  ucmted  to 
chonge  disks,  ond  it  couldn't 
seem  to  center  the  disks 
properly. 

5o  obout  the  time  Commodore 
come  out  with  their  3008  PCI 
computer  (uith  Bfl5IC  1/3,  uith 
uery  minor  differences  from 
P2.),  they  come  out  with  the 
30f0  Duo!  Disk  Driue.  Ihis  hod 
DOS  nZ  in  it,  which  corrected 
the  problems  with  error 
tropplng.  But  they  didn't  fix 
much  else,  ftlso,  people  were 
gettinq  tired  of  houing  to  type 
0Pt'ni5,8J5;'K0!neufilehome:oldfi 
lenoffie":CL0'i615  to  renome  o 
file,  when  their  ftpple-owning 
buddies  could  do  the  some  with 
RCnfldC  oldfilenome.newfiienome. 

ftlmost  immedioleig  Iherefler, 
the  Commodore  M16  PCT  come 
out.  It  hod  16K  for  starters 
(expondoble  to  32K),  ond  Bfi5IC 
til  This  version  of  Bft5IC  hod 
nice  disk  commonds  like  CftTfllOG, 
SCRfiTCH,  DLOflD,  DSflUC,  BflCKUF, 
COPY,  etc.  Ihese  commonds 
simply  tronslftted  themselues 
into  the  old  commonds  the  disk 
driue  understood.  So  COPY 
DO/'oldflle"  10  Dl/'newflie"  got 
sent  to  the  disk  os  "Ctnewfile: 
Ololdfile". 

Along  with  the  PCI  t016  come 
the  tOtO  Disk  Driue.  It  hcid  it  oil! 


Besides  fixing  the  hordunre 
problems.  It  hod  DO'3  UZ,!,  which 
supported  Uimi  tU9,  (Uhut 
other  people  colled  Kondom  files, 
but  they  used  n  different 
terminology  so  os  not  to  confuse 
the  old  disk  driue  owners  who 
were  doing  it  the  H-fi-R-D  way!) 
Ihe  new  DOS  niso  performed  on 
outomotic  "I"  commond  euery 
time  it  detected  o  disk  with  o 
different  ID,  so  thot  the  user 
didn't  houe  to  unless  he  had  two 
or  more  disks  with  the  some  ID 
(the  two  chorocters  thot  oppeor 
ofter  the  disk  name  in  o 
directory  listing).  It  olso  used  n 
slightly  different  disk  formot 
from  the  20f0's  ond  BOfO's,  so 
thot  0  disk  mode  on  o  20t0  would 
houe  to  houe  its  files  copied  to  n 
WO  disk  driue. 

Loter,  Commodore  come  out 
with  the  Commodore  Business 
flochine  (CBH)  8032.  It  hod  BASIC 
n,  32H  of  RAH,  0  12-inch 
80-column  monitor  (the  old 
machines  hod  smoller  10-column 
screens),  ond  n  more 
business-like  keyboord.  Indeed, 
it  wos  0  business  mochlne! 

fl  business  mochine  needs  o 
business  disk  driue.  So 
Commodore  presented  the  80S0 
disk  driue.  it  used  o  double 
density  formot  thot  got  ouer 
twice  OS  much  doto  on  ench  disk. 
It  olso  could  tell  if  0  disk  driue 
door  hod  been  opened,  ond 
outomoticolly  did  on  "I"  commond 
when  the  door  wos  shut  ogain, 
so  thot  the  user  MM  needed  to 
do  thot,  no  motter  UHfil  his  disk 
ID'S. 

Loter  come  the  8052 
double-sided  driue,  ond  the  omo 
ond  mm  hord  disk  units  thot 
could  store  2.  5,  ond  ?.5 
negobqtes  CI  (leq  =  102t  K!)  of 
doto! 


Ihen  cnme  the  lJIC-20, 
Commodore  mode  mony 
fiduonces  on  this  onel  Low 
price!     (jrophicsl     Low  price! 


Color!    Low    Price! 


3-c 


honnel 


sound!  Low  Price!  KS-232!  Low 
Price!  0  user-progroiTuTioble 
function  keys!  Low  Price!  fl 
cartridge  slot  for  gomes!  flol 
to  mention  o  low  price!  tuen 
though  they  were  producing  o 
computer  to  compete  with  home 
uideo  gomes,  they  leorned  their 
lesson  on  the  PCI  2001  and  goue 
the  Die  0  m\.  KCYBORRD! 

But  for  the  soke  of  low  price. 
Commodore  took  seuerol  HRJOR 
steps  bockwords.  Only  SK  of 
22-column  screen.  Bock  to 


BASIC  P2.  And  worst  of  oil,  they 
scrapped  the  wonderful  ICCC-t88 
bus  thot  could  shoue  oil  8  bits 
of  0  byte  down  the  wires  ot 
once,  ond  reploced  it  with  o 
"serini  bus"  thot  hod  to  spool 
those  bits  out  one  at  a  time, 

Commodore  then  produced  the 
15f0  Single  Floppy  Disk  Driue.  It 
was  bosicolly  n  one-drlue,  serlol 
bus  uersion  of  the  tflfO.  It  hod 
less  RAH,  so  that  fewer  files 
could  be  open  at  ony  one  time. 
It  used  the  new  hnif-hlgh  disk 
driue  units.  Insteod  of  two 
micro-  processors  (one  for  the 
driues  and  one  for  the 
interfoce).  It  hod  one  processor 
controlling  the  single  driue  and 
the  interface. 

About  two  years  later 
Commodore  inuented  the 
Commodore  61!  (Cucr  heord  of 
one  of  those?)  I  won't  go  into 
oil  of  its  nice  features,  but  It 
still  hod  the  serioi  bus  ond  It 
still  hod  BASIC  L'2. 

Pell,  the  1510  was  supposed 
to  work  with  the  61,  but  it 
couldn't  SAUC  or  LOAD  progroms 


trntd  mwoi  nn  u 


due  to  liming  problems,  (Sound 
f  (I  rn  i  I  i  0  Y  ? )  I  h  1  i  I  i  iTi  e ,  C  0  rn  m  o  d  o  r  e 

ijpyt-fidtd  the  disk  dt-'iue  ifisttftd 

of  the  BflSIC  in  the  computer,  ond 
so  uos  born  the  VAl  Ihe  ISfl 
is  uhTiosl  idenliciil  to  the  ISfQ 
except  for  the  D05  in  fiOft 

Hnywfiy,  with  BH5I(  Pc,  it  is 
not  ensu  to  send  commonds  to 
the  disk'  You  houe  to  OPCn  the 
commond  chonnel.  It's  not  eosy 
to  uiew  the  disk  directory,  You 
hnue  to  LORD  thnl  ns  o  program 
ond  USI  it.  (i3ood-tiye  uhnteuer 
progrfiiTi  you  uere  uorking  on, 
unless  you  soued  it).  If  the 
driue  gets  nn  error,  it  flashes 
its  little  red  light  os  o  sign.  If 
you  uont  to  knou  uhol  KIClD  of 
error,  you  con't  just  Ffiini  D^^ 
(Disk  Slolus)  like  qou  con  ullh 
BASIC  Ul 

Ihese  problems  existed  In  the 
old  PCTs  uith  W?K  n  os  well,  so 
on  enterprising  progrommer  by 
the  nome  of  Bob  foirbciirn  urote 
the  DOS  Honoger,  or  DOS  Hedge 
OS  it  hns  come  to  be  known. 
(Also  referred  to  ns  the  DOS 
Support  Progrcim.)  Commodore 
put  this  goodie  on  the  ICSI/De'ttO 
disk  they  included  with  euery 
driue, 

So  uith  the  IStOnSfl  luo 
neu  uerslons  of  Ihe  Hedge  uere 
written  -  one  for  the  PIC-20  ond 
one  for  the  C-61  This  progrom 
Is  included  on  your  IC5I/DCf10 
disk,  cmd  con  feolly  moke  life 
eosierl 

The  monuol  included  with  the 
1S'H  is  octuolly  0  hurried 
reuision  of  one  of  the  eorlier 
drive's  monuol.  (for  proof,  just 
rend  the  description  of  Crror 
«7f  "DRIDC  nOT  RCflOY"  on  poge 
f6  thereof!  flol  to  mention  the 
red-lighllgreen-light  mixup  on 
page  8!) 

As  0  reference  monuol  for 


technicnhtypes,  the  ISt'l  monuol 
isn't  hulf   bud.     As  o  tutoriol 
iTionuol     for     the     first-time 
computer  user,  it's  o  joke! 
dieSetd  tdiLss'S  nots'  ths 

ike/i  kr'l  i/iliid  for  ii^e  sd-e  af 

(UUBSfffg  has  alressJy  run  the 

So  oil  this  history  hos  been 
leoding  up  to  this  announcement! 
LOADSTAR  will  begin  publishing 
on  on-going  15t1  Tutofioi!  He  will 
couer  bosic  operotions  and  the 
DOS  Hedge  first,  then  moue  on 
into  sequentini  ond  reloliue  file 
hondling,  ond  loter  into  more 
esoteric  functions. 

For  now,  o  few  do's  ond 
don'ts.  i  won't  tell  you  why 
(yell),  but  just  obseruc  the 
following. 

1.  DO  nOT  use  the  Snue  and 
Reploce  comiTicmd  described  on 
poge  13.  Belieue  me,  il  con  be  os 
unlucky  for  you  os  the  poge 
number  implies! 

Z.  DOn'T  use  the  Open  ond 
Keploce  construct  described  on 
poge  20.  Just  don't! 

3.  DO  nOT  turn  on  or  off 
either  the  computer  or  the  driue 
if  there  is  o  disk  in  the  driue  ond 
the  door  is  closed.  Pop  the  door 
open  first! 

1  DO  moke  sure  thot  oil 
your  disks  houe  dlPferenl.  ID's. 

5.  DO  plug  oil  components  of 
your  computer  system  Into  the 
some  GKOUDDCD  3-w!re  power 
circuit.  In  foci,  inucsl  in  o 
power  strip! 

READV. 


NOT  SO 
STORIES 

by 

Brian  L  Crosthwaite 


ni*ari  Ko  fii»j«  ont.  1  UJILL  b«i«:k  *M«i:iuiJhirp)  »ict  — 
4».»«'j>hiftg.  If  #'>mf>rit  -jlMtf  nit  •ii^V.  '.viirri 
fOttt^th'iU'}  <'ri  1^.  -ift'l  I  4<'ri*«:  hw*  .j  4i*k  •:•>  bi-ik  It 
up  >)U.  i  won't  ao:«pt  it  Plain  ^nd  limpk. 

I  »>.»ill  nh)}^vn  ~  4lw.3»jf  kt«C'  -lifki  ;n 
t'«v*#  in  'jlph'itt^i.:.!!  ffi4*(,  *at*  torn  RF  ^tvi 
4lJS^  t4t<:k->j  5*>  t  know  iijfit  u.>ri4^.  \i  on  it  Eu^iu 
•InFk   •i.itll    h*]M«   i^f   lirt^toru  p^inU'i   '>Ht  and 

•>3tlloa'J«'l.      I  h4U  hOViA*)  Kv  \^k  tffi  l^iVO  'MUf 

iust  to  fin*!  ']  t\W. 

I  proniif*  Kfi  pi*-f«rn^<it  difk.#  juit  'if 
5oon  -M  I  a*t  thtnu  #•>  thtu  will  'iK'M'jf  b* 
fofmotUd  'ind  r«ti4u.  Thf«  is  nothing  m<fi$k  than 
biiftfl  on-lin*,  i*44«  to  'lownl044  •»4  not  tiw'm 
a  4i«k  I  om  M.'t'iti  to. 

i  will  m}<m  k««p  th«  4ijst  <ou«rf  on  4H 
«a'itprritnt  that  is  not  tuin^d  on.  i  a«t  fo  tif«4 
or  havina  to  ^ttan  rnu  mo4#«.  I  v;ilt  <tt4A  ii't*>k 
h«445  Oft  4  r«aut4f  basis.  I  will  NB/'ER  brina 
foo<i  nt4i'  wi  <omp(ittf! 

Good  ».».«of4f  to  livt  by.  Pf'i<ti<aL  fo«jn4 
44Mi<:t  to  oil.  Th«u  also  h4pp<n  to  Wsk  b«tn  last 
•itoi'f  r*#«l»jtion#.  I  hav*  a  million  'jn-pirot4<t*4 
disks  Ivina  ofound^  iin4«r  books  on  top  of 
monitors.,  ijoij  know^  s^t^  from  fn«  %:>.i«r  findina 
th«m.  EMti'U  4isfc  I  hav«  has  wt'it«  prott'it  tabs 
—  soiAi'JVhtrt  —  h*M..  this*  things  wak*  artat 
tap«!  I  4o  h4v<K  sorn«  blank  disks  around  h«r« 
#orA*M;h*r4...  htrt  th*«j  ar*  —  no  that's  *mptu. 
It's  just  as  UHIL  th*«j  artn't  foimatttd  anuv.»au. 

Mu  dust  tiovir  fuk  buri«d  uhd«r  mu  C-li^/. 
M.*h«rt  did  rnu  Atari  ao?  It  must  b«  und«r  th« 
dust  'lov^rs.  W  Itast  som^thina  is  saf«  from  all 
this  dust  and  th«sft  <:rurrits  —  wh«r«*d  thos« 
•:omt  from?!.  I  n**d  to  a*t  oraaniztd. 

That's  it!  rdu  resolution  for  this  utar  is  to 
4tt  ora*3ftis«d.  Thdhk  aoodntss  n*>Podu  takts 
thts«  \Wh  V«ar's  P.tsolutions  striouslu  aAuv.*au. 
i  ivondtr  u^itr«  that  maan«t  disappiored  to. 
b4:«n  lo<>i(ih'  Hi  that  for  a  lona  tim«.  Oh.  th« 
•:at*s  b«th  plOMiha  v.>ith  mu  floppies  aaain... 
hmmm^  I  v.;orid«r  v.^here  the  disk  *\k4*}k§  wvnt... 
i  n««d  to  a«t  oradftized. 
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4050  IFQ|="0"0CO|="E"OPP|="F"THEMHB|=  11?0  HEXTH/J 

LEFT^r.HR|,L-1.U"S"*RICHT|(MR$,2:L-L-11  1140  CETQ|:IFQ|::"Q"THEH1140 

40eO  IFQ^="C"bR0i="H"0RQ^S"l"THEHMR*=  2000  POKE532JO,0:POKEE32<:i,1 

LEFT|rHR$,L-1)*"''J"*RICHT|i:NP|,:L-L-11  2001  PPIMTCHP|r.14.V.:CLR>i:.:i:rl  1X«1  «ii  loojn} 

4070  iFP^="j"dRoir'K"OPP$="L"THEHMP|=  i4  iisi  nmxcz  .ijv^o  fUin  mys-  *:•" 

LEFT|i:HP|,L-1?*"5"+PlCHT$(MP|,i*L-L-11  2010  PRIMT".:4  uJi'  n^MXShitt  -X^S  ipdCi) 
40S0  IFP|="M"bRP*="H"OPP$="0"THEMHR|s  ^S  <pa«:4X*f'«rt  -)" 

LEFT$(MP|,L-11*"«i"*RICHT*fNR$,a-L-1)  2020  PPIMT"<4  UU  n>}Mjiifuft.  'Xi.  jpa^c) 
40-?0  IFP|="P"CiPpi="R"OPP$=">"THEMr<P|=  ^iMt  .1)DPCI0C3  SpO«:}C*r»«ft  *J<M 

L6FT^rHRf,L-n+"7"+piCHT$rMR|,-:L-L-i.i  c^  ip^iKK^Mt.  mjoREce  *po<*>.:*ft»ri  ->•• 

4100  IFP|="T"OPP|="U"OPP|="'v'"THEMNP|:  2020  PPIMrC4  :iSi  ii^MXSUin  -JCSS  ip4<ij 

L£FT*rHR|,L-i)*"S"*R»CHT$(HR|..2:L-L-ii  c?  *pa<4X*riirt  -)•• 

4110  IFP|="W"OPPi='::"OPP|="V"THEMHR|:  2040  PRIMT"{d  <•*•  .i^hOC^Wf"^  "XS?  *pa<i> 

LEFT^i:NQ|,L-1)*'"^"*t'ICHT|i:NP*/;L-L-1i  i^  i^QiiX^futt  -}" 

4120  HE::T:MP|=MID|rMR|,2,SL-21:N|=HC|  2050  PP»«T"C4  uii  ii^ritX*f"r«J  "JCS^  *p.l.;4j 
41-:0  PETURH  C5  *pa<4)C*W«  -}" 

5000  PCM  CP0S2  T0MEJC5  «p4<ii>C:C0L  20^0  PPIMT"C4  <i«i'  liaMX^hif^  '/ 

UMM  R=ROUI  CW  fpo«:4>C*f»rt  t>VCW  sp«6X«Wft  "}" 

5010  RETURM  2070  PRIMT"C4  u'Si  li-JhtJCSW"  ->C25  «paii«> 
eOOO  CHQR11,0/':JPQCB>  TO  SEE  LINES"  C5  «P-K4X«W«  -)" 

^010  CETC|:IFC|:>"  "THEWeOlO  2075  PRINT"C4  Cifi  <i(}hrxmn  -X25  *P<K4> 
^020  CRQPHIC0:CROPHICZ:CO3UB3000  C5  «P0C<;X«ni«  -5" 

i030  CHaPn,0,":SPQCE>  TO  CONTIMUE"  2020  PRIWT"C4  iiff  ti^UVji^Mt  -X25  «p«*> 
e040  CETC|:IFC|<>"  "THBNeoaO  C5  «P«K4X«ft»^^  "}" 

eiOO  CPaPHICQsCOTOIII  Z0$5  PRfNr*C4  i7<*'  liffttX^rtirt  -XS  iP*K«} 
$000  PRINT"CHOME>C<(i'(  $}"  C^^riirt  D^PIQrKS  ip4i:4}C:^riirt  1} 

$002  PRir<T'*c(  spd<«>i<$  spa(4>zc:^  ipaii4>?"  c^  ip^n^K^hin  c>P0STHmQiTeC4  fpa<«> 

5010  PRir4T"C1  *p4<4>0BC  DCT**:PPINT  C^hift  ->" 

$020  PPf«T"Ct  «pa<«j4C3  fpa(4>5C^  fp«i<«i>«>"  20S«t  PPiNr'C*  <f*«'  r»ijrit5C«ft»F^  ->C25  fp««> 

S030  PRfnT"C5  fpa<«:«CHI  JKL  M«0":PPir4T  it  «P«<iitX*ft»«  ->*' 

$040  PPINT"C^''  ^Pa(4}7{$  fp4<4>$CS  {P4<«>1"  20$7  PPIHT"{4  it^t  ii^MX*^if^  -}C25  iP4<«> 

$050  PRIMT"C5  «pd<*>PPS  TUV  WXV.PRIWT  (5  fpa<«X*riift  -}" 

$OeO  PRtMr'CIO  ip4<«}0  ZOIO  PP(nT"C4  <i*<  i\qMXit»n  -XSS  ip4«(} 

$070  PP(NT"C(  SP4(«}«<CZ  fP4<i;:>0PR  CS  <p4i;«Xifliir(  ->'* 

C2  iP<3<«}«":PPinT  2015  PPIHT'C^  <iSi  imOW*<^  '}0\M 
$0$0  PRmT"C(  fp4<«;QCT  fp4<«>Z"  iihift  ft}flPO  THE  ifttiit  4}PIN 

$030  PPiKT"C5  Spa<4>0FFC5  sp4U}PDL  NER  C'hirt  lymtiiSttin  <>QRTKVCi5trt  -}" 

$100  RETURN  ZOn  PRINT"<:4  «S(  iHtfitX^^if^  'WS  lp4iLft> 
1000  CRaPHICQ:PPfNT"{CLR>C4  <**<  4^t»A>  C^  ip4C«>C^*TC  ->" 

C5  <if|-  iiaM>QUIT?  (V/Nr  Z017  PRINT"C4  Cif r  fH^MX^hin  -X25  fp4<6> 
1010  CETE|:CFE|="VTHENPWNT"CCLR)":EMO  C^  IP4<«X*W«  ->" 

10Z0  IFB|=""THEN1010  201$  PRINT"<4  <ii(  ii^MX^^*^  -}C25  ip4(«> 
1030  C0T0111  v5  fp4<«>C«Wrt  -J" 

======ss2s=srs==ssss=5=sssrsssss=5sss=s=s==s        2011  PDINT-'CCi-Sf  40Wft)C*tiir«  PJE  COOL,  60 

Lif tirw  ^    Sih«  Mor^'  fOi'  (ri4  t4  SIC  \S  PERL  SLOUI  SOMETIMES..." 

P  U^ridtiOh  on  (ri«  SMilfKiA,  ttk%(  SIN  MORE  iS  4         5000  RETURN 

M4tMifi4Ci(4t  aamMk  by  Bri4ri  l  cr4ithw4it«.  -inj  rem  mmmmmmmm  set  up  3K«xs«x«)k« 

Srt4iiflCiA  ro^  trk«  iJXU«ri  Ullll  I'Un  an  trk«  1Z$  4f  lOOOO  0:11:B:Z:C=3:0:1 

UI6II  4S  tri«  ^4.    Sn4»P4fi,  ro^  th«  1Z$,  Ms  4  tOOZO  F0Pi(:$11ZT0K111:POKE};^Q!NEXT 

5iri4f9  ril«  trt4t  Will  ft«  pririt«4  in  Khk  fttkXt  iffU«.  10030  FOR(:iOZ4rOZOZ3:POKE(,B«U«C:NEXT 

JUf  t  I'Un  (h«  Pi'04r4n'i  UlitnouC  lin^  Mm^t  10  •>•  10040  FOPi:55ZnT05(Z15:POKEI,D:NEXT 

f  UMtiUU  4&M  spills  tUk  t<t<  SNQILPEN.  10050  POKE53Z(5,PEEK(53Z(5)OP3Z 

100(0  POKE53270,PEEK(53Z70)ORU 

0  REM  :P0KES3Z$1,fl:P0KEf  3Z7Z,PEEK(53Z7Z)OR$ 

Z  REM  XCOPVRICHT11133K  11111  REM  »«SIX«»9K»  PLOT  »«3K3K»«iHK« 

3  REM  LVNNCflPTHV  IND.  ZOOOO  CH:iNT(K/4]l!P0:lNT(V/$]l:LNrV0N0T 

4  REM  m  OLL  RICHTS{2  f p4<«>»  Z001Q  6V=$t1Z«POiR3Z0«$«CH«LN!Bi:(-(2«XQND7) 

5  REM  mil  ip4<6>RESERVE0a  SP4<4>«  Z0030  POKESV,PEEK(eV.10RPT«Z^BI 
%  REM  «{3  ip4(6>DtEKQOO<3  ip4<4}X  20040  RETURN 

7  REM  m  THE  SPINHES  «  30000  REM  »K»«  NORMPL  SCREEN  «««« 

$  REM  «C3  Sp4<ii>ENiOV!{4  ip4<4}K  30010  POKES3Zt5..PEEKC53Z(5)PNOZZ3 

1  REM  mmmmmmwmnmmmmk  3oozo  P0KE53Z7z,PEEK(53zrz)RN0Z47 

100  REMC>  Sp4<03i»««il«»  SIN<2  fP4<«>  30030  POKE53Z70,PEEK(S3Z70)RNOZ31 

f-IORE  mmmmmmm  30040  POKE53ZS0..14:POKE53Z$1,e:PRfNr' 
110  REMC3  Sp4<4>liC19  fP4<4>BVC11  fP4<4}ar  CCLPX<t*'<  7?"CHR|(14Z):END 

1Z0  REMC5  «P4<4}«<J  iP4«t>  

BPIPN  CROSTHttlOITE{3  f  P4(4>X 
130  REMC?  fP4<«>XC7  #P4<6}11$3  1113C7  fp4<«)S 
140  REMC3  Sp4<«XZ$  «> 

150  REM{3  f P4<«}«C0PVRICHT1113LVNNCQPTHV» 
1$0  REMC3  ipa<«}C2^  »> 
170  REr4C3  ipa<«>K<Z  fp4Cft} 

PLL  RICH7S  RESEPUEOCZ  SP4C4})K 
1$0  REMC3  ip4(«XZ5  »} 
1050  PRir4T"<CLR}" 
10(0  COSUBZ00O:COSUB10000 
1070  CS0:P751 

10$0  FOPM=11T01STEP-1:FOPN=-'JTOO 
1010  C=C*.05 

1100  X1=INT(1(0*r.V«1.5]lKSINi[N/i:C/4)«{pi})]l/Z 
1110  7i:iNTO00-y«COS(N/(C/5)«CP«»]l 
1115  IFfNT(K1/10]l3«10=:{1THEr4PT=PT*1 

:IFPT>3THENPT=1 
11U  IFIHTi:V1/101»10=V1THENPT=PT*1 

:fFPT:-3THENPT=1 


Liftift9  7    Sp^it^  Sr»4il.12$    FOi*  th«  12$ 


1  TRAP^Oi^ 

1»>  REM  BLOftO"5N«LPEN" 

li>  SPRITEl.tZ 

(0  CRflPHICt1:C|=CHR|(14)*"C4  fp«t> 

?PF!lTE5NRIL..M0HDAV,AU»:UST. 

5.1111":CHAftt0.25.CI 
70  FOftVs1TO70:FOP.Hs0TOV:CsC*.05 
Si)aalNT(151*M*SIN(N/(C/23JK?)) 
1«>  Vs|NT(>»-Mj«C05(N.'(L':/L)5|t?)) 
1£0!FX>0PHO«<511ftNDV>0<:iMDV<mTHEH 

G0SU61')»>»> 
17')  NE«TN 

174  LOChTEK..V:C05UB3»)(»v 
1*0MEHTM:FOPIsH*24TOT544:MOMSPR1,LV:NEHT 
£»>•>  GETKEVEI 
^10  CPAPHICOtEHD 
1'!K»>LOCftTEK,V:MOM5PRU*24.V*5'):DRftwJ1.K.V 


:RETURH 
2000  HELP:EHD 

r.ooo  :::iMTriE3*«.;«siwro/ri:/2i«?ii 
:oio  •.'=iMTni-'...'«cosfo/rc/2i*T.vi 

>020  REM  MO'v'E  TO  NEW  COORDJHPTES 
J030  RETURN 

Lifting  $   ShaiiiKift  ie*4  Foi-  iirP?uf'4'anoi"i2S 

1  PEM  XXiiXXXXXXXXXXXX 

2  REM  *COPMRICHT1133« 
I  REM  LVHNCORTHV  IND. 

4  REM  m  PLL  RICHTSC2  ipO<4>« 

5  PEM  «v2  Sp4<«>RESER'JED<3  {p4C<:>« 
*.  PEM  »C3  fp4>:<L:iOIEHOPO{3  fp4<K}X 

7  PCM  »:  THE  :>'PiNNEP  it 

Z  REM  «{3  Sp4<i;t}ENJO'.>!{4  ipa<:<::'« 

1  REM  «X«XXX)EX«.«X«Xii« 

1000  PPINT"CCLRy':TI|="000000" 

1010  CPOPHIC2:COLOP0,2:C0LOR1,1:SCNCLP 

:C=0:PRINT"C2(  •:»*»•  'iMWri}" 
1012  PRINT"C7  «P4<*}C0PVRICHT 

C2  Sp4<«}iONUORVCZ  ip(l<«}1113" 
1014  PRmT"*:$  fp4<«>C0MM0D0RE  U  SNOILSKIM" 
lOie  PR1NT"C1  ip4«e>BV  BRIPN  CPOSTHUIPITE" 
10Z0  FOPy=1T0111STEP.5:FOPHSOTOy 
10ZZ  C=C*.05 

1030;:=INT(151-VXCOS(H/(C/Z}X?]I]I 
103Z  PRINT"C4  ipa<*}2151-($  «P4<*JXC0S 

r{4  sp4a>/(<7  5P4<4>/ZJX?r* 

1034  PRINT"C<«f  «p>"S 

1035  COSUBZOOO 

1040  V=IT<TC11-'v'XSINCN/(C/Z.lX?J) 
104Z  PRINT"{4  ip4<'ii}:i1  -{(  ip4<«}XSIN 
(C«<  fp4<«>/K7  iP4<4>/Z)«?ll" 

1044  PRINT*X<i'«r  «p>"V 

1045  COSUBZOOO 

104$  PRINT"CZ  «t<  up>"; 

1050  iFX<311ONOX>0Or4DV<111ONDV''0THEN 

0RaUI1,^',V 
lOtO  NEXTN/v' 
lOeS  T|=TI| 

1070  PPiNT"c<'<i'  I'i^ntXio  f pa<«x<f<i'  i«f(> 

RUN  TIME  "Tl 
10$0  CETQ|:IFQ|r""THEN10$0 
1010  COOPHICO  J 
1100  END 
ZOOO  PPINT"C<^«  «P>C1  <•«  ••^M}" 

INT(VX101I/10 
ZOIO  PR«NT'\\r«i'  Up>CZO  iiU  ii^MJ"N 
ZOZO  PPINT"C<i«r  UPXS^  <»«^  •igM)" 

INT(CX10]l/10 
Z030  RETURN 


Listing  1    Cto<K.U   f(H  1(,  PIUS  4  dri4  1Z$ 

0  REM  C-H  CLOCK 
1COLOR0..15,0:COLOO1,7,S:COLORZ,1Z,4 

:COLOR3,Z,7:COLOR4>,0 
Z  XMS311/Z:XC=XM/Z 
(  VMS111:VC=VM/Z 
$  SR:(0:HD:(5 
10  CRQPHIC3,1 
ZO  FORSsiTOeo 

30  XS=INT(XC*SPXSIN(S/30«CpiJ)TI 
40  VS=INT^»C-SRXCOS(S/30XCPi») 
50  OROUIZ,XS,'.'S 

(0  IFINT(S/5^X5rSTHENCOSUB1000 
70  NEXT 

100  REM  MPIN  LOOP 
110  CETTS|:IFTS|="S"THENZOOO 
11Z  IFTS|="0"THEN7000 
1Z0  H=VflLaEFr|(TI|,Z)) 
130  M=VPLr.MI0«Tlf.3,Z)) 
140  S:'v>PL(PtCHT|ai|.-23) 
150  IFS<''SHTHEr4COSUB3000 
HO  IFTI|=PT|THENCOSUB$000 
1T0  COTO110 
1000  PEOORI 
1010  XH=INT(XC*HRXSIN(S/eX<pi5TI.V.XN=INT 

(XC*(HR*$)XSIN(S/(X<pi>.1.1 
1020  VHrlNT(VC-HPXCOS(S/(XCPi))):VNslNT 

i:VC-(HP*$)XCOSCS/$XCpi») 
1030  DR0UI3,XH,VH 
1040  CHaR3,XN/4,VN/$,R| 
1050  RETURN 
ZOOO  CRaPHIC0,1:B:0:B|:"" 


4l4H4i'4  J-jnuaiM  1  ^jis  ie 


Z010  PCIMT'\'CLP).:ufi  dMUUfiX«:«:.l  Z].Bti 

TEP  TIMEvZ  ipOi:i}HHMMS>.:«i'  ':•««  ii^Ur/': 
•012  CETK:E'.M|:IFB=0QMDI|=CHR|fl31THEM20322013 
(FI|:"1-ORI|:"0"THEW2012 
:014  IFE=aQMOI^:"rTHEn2012 
:01?  IFE:=1QMOI|:-1I"THEH2012 
ZOIt  IFre:2OP£'.=41OHDI|:"5"THEM2012 
:017  IFrB=!:ORE=!:TiOHOIf"?"THEN2:01S 
ZOZt}  E$=e^*l^:e=B*1:PRinTl|;:IFe<?THE«2012 

:ij!:o  pRi«T-.n$=e^ 

:oj:  print:Ppiht".:(?i-i  ijdo  '.'ou  ijuqnt  to  ;e 

T  THE  QLORM  rc.:i:ri  Ty,'>:ai\  i;./.:«:rii  7>« 

.:.:tri  i:oT" 
ZUaO  i:ETKE'.'lf.lFl|=**7"THEHCOiUB7000 
2042  IF($:-.*Tr'THEM20aO 
2050  CROPHlC3:COTO100 
rOOO  •J=S:P=2:O=5IJiR=55:CO$UB5000 
3010  Vxri-PsltDsSOtRSSOrCOSUBSOOO 
3020  M=H:P=3:D=^  :RS50:COSUB50O0 
3030  RETURH 

4000  OQTOE,10,3,$,1,e,11,4,1,2,T,12 
5000  «:lHTi:XC*R«S(M('J/DKCP«5?) 
5010  V=INTrVC-R«COSrV/D*CPi>}) 
5020  IFP:2THEM:OROU;0,}:C,VCTOS:^SV:SX=K:5VSV 
5022  (FP:lTHCW:ORPW0,KC,'/CTOMS,MV:MK=t'::MV=V 
5024  (FP=3THErf.DROmO,KC..VCTOHX,HV:H}::K:HV=V 

5030  DRaujp,::c,vcTo::,v 

5040  JHsJtPETURN 
TOOO  CROPHIC0,1:B=0:E|="" 
7010  PRIMT"CaR5<5  «S<  40UlftXC=  1> 
EMTER  OLORM  TIMEC2  fpa<i)HHMMSS 

7012  CETK:EVI|:(FB=OONDI|=CHR|(12)THEN7030 

7014  fF»^'"?"ORI|':"0"THeM7012 

7015  IFB=0Or4OI|:"1"THEN7012 

701«.  IF(B=2OPB=4)PNDI|:"E"THEW7012 

7017  IF(Bs5ORB=S)«MOI|:"1"THEN7012 

7020  B|2B|*l|:B=B*l!PRfHTI|;:IFB<tTHEM7012 

7030  QT|:B| 

7040  CRaPHIC:COT0100 

3000  FOCI=0rO5?:'JOLS 

5010  COLOC0,15,7:COLOR1,7,7;COtOR2,12,7 

:COl.OCS,2,0:COLOR4,<...7 
5020  SOUMO1,7T0,30:CETE|:IFB|="  " 

THEK$0(0 
5050  COLORO,15,0:COLOR1,7,0:COLOR2,1Z..O 

:C0L0R3 .2 .7!COLOR4..e,0 
$040  SOUWOi,310,30:CETEf.lFB|r"  "THEmOitO 
ZOiO  NEXT 
SOW  COLOC0,15..0:COLOR1^7,3:COLOR2..12,4 

:COLORS..2..7:COLOR4..i..O 
$070  RETURN 
1000  REM  (,ZZ  «5 

1910  REM  «CLOCKU  RUNS  ON  ^4  RNO  12SX 
)020  REM  »COPVRICHT  1113  LVNNCRRTHV  « 
1030  REM  XC4  fp4<O0LL  RIGHTS  RESERVED 

v3  Jp«l<«}« 
1040  REM  «C11  fp4<i>BV{13  ipa<«}X 
1050  REM  «C3  ipa<«>BR10N  L  CCOSTHUIQITE 

C4  ip<i^«(>ai 

10(0  REM  m  Q  OIQTOL  CLOCKS  fpa<6>T0  SET  K 
1070  REM  X  PRESS  iSv  QLSO  HAS  OLOnM  X 
10$0  REM  XPRCSS  <Q'-^  CCEQT  tnPUT  CODEX 
1010  REM  iZZ  X} 


USKm  10    QipM  C<>un(.20    POi-  Cri4  VIC  20 

2  REM  COPVRICHT  1113 

3  REM  LVNNCQRTHV  IND 

4  REM  RLL  RIGHTS  RESEVED 

500  PRINT"C<til  7XCLRX10  <ifi  dOWn) 

HELLO,  00  you  WONT  TO  PLRV  Q  COME?** 
510  CBTO|:IFQ#=""THEN510 
520  IFfl|::"V"THENPRINr'CCLR)":END 
530  PRINT"CCLRX10  <»«•"  404UriX^  ««'  »'»aW> 

OH,  COODV!";FORTSOT01100:NBKT 
534  INPUr'CCLRXIO  <i«  JOUIfi} 

HOttI  MRNV  PLPVERS":N 
540  PRINT"CCLRX10  <i*<  •I'S'Wh) 

MV  NOME  IS  VICTOOIQ" 
550  DIMNIfMl  .m|i:N),N0tN1:F0RPsiT0N 

:PRINT"UIHOT  IS  PLOVER  HUM 

BER"P"*S  NQME?":INPUTN|(P) 
5$0  NEXT 

100  PRINT".:CLR>":COSUB7000 
1000  POKE3i$71,10:PRINT"C3  <iS(  40Wri> 


{12  thin  cjisuin  ly 
1010  pciMT".:3  <i *••  •igritJCfnift  t.x«:^««  K* 

L'.'MHCQRTH'.'  iNDC«:tii  *>:*riirt  uy 
1020  PRiNr'.:3  .:i*i-  M.jfif.x«riifr  ij 

'lu  <r.irt  (x§u\n  ny 

1030  PRINT"C3  M*!-  •JOOjriJvf.  mSi-  li^fiO 

C'-.tri  2Xfriiri:  ux^  *fiirt  «x*r"«  i}"' 

1040  PRINT"C».  ':•■*••  ii^MXsUin  -) 

ryt.i\  5:.PREJENTS<i:i:i|  2).:*r.ift  -)" 
1050  PCINT"«:^  Mil-  .'igfitX^ftJff  -•> 

.:••!:  *f»ir«:  xx^rHf'-  fcJ 
10(0  PRIMT"C3:  ':i*i-  JowfiX^  •:»*•'  ''i^M:' 

1070  PRINT".:4  a^(  iW\t.XZ2  gX<<ffl  -50 

.:<tii  ajLv*:?*'!  e}PC»:'J«i  :jH«caii  2}D 
{2  «pa<i>C':t»'i  EXC^tii  4>oc<i'.»i  (}u 
Cvtii  $)N<i:til  5>TC«:tii  iXC=  m}" 

10$0  PRINT"C4  Cifi-  liijriCXiriift  tHKM  C=  OJ 

1010  FORT=OT01200:NE::T 

1120  COSUB2000 

1130  GOSUB3000 

1140  COSUB4000 

1150  GOSUB5000 

1U0  COSUBiOOO 

11T0  GOTO1130 

1U0  REM  FINOLIZE  ONO  QUIT  OPTION 

1111  END 

2000  PRiNT"{HOMEX$  «^f  ii<>MXCz  4> 

C13  *riir(  x>cc= «} 
2002  PRINT-'CE  Ufi  fi^tiOC*^*^  -)  00  VOU  NE 

ED  ^mn  -) 

2004  PRINT'XS  <i*i  dm} 

^mn  -}INSTRUCTIONS?C«ftt«  -5 

200(  pRiNr'tCS  iti(  fifhocc:  s}ci3  sriift  x> 

CC=  X} 
2010  CETO|:IFQ|:""rHEN2010 
2»)12  IFrt|<>"M-THEN2;1$<' 
im  PftlNT".:CLP.X5  •:i'5i-  4muyA<\  I"} 

C£«  ffr-KO-Ctrt  7:»:ca  XJ"^ 
2:i>2i)  PPIMT"'[<ltil  >5CC=  3I5>  iM  E>THB  OLPHO 

BET  MJtLL  BVj.Ki\  S}  '^ 
2')S0  PPrtNT"^>.fl  rA*>  X}  «^rl  i> 

DISPIOVED.UHDEP.  EOCH{(trl  5>  '*; 
£040  PRfNT"^<tfl  1KC=  X>  ^<til  SHET 

TEP  \S  A  NUMBBP.  0X(\  5:*  "; 
2:050  PPIHT"C<trl  1i)CCs  «>  Hm  ZJSPEU  WO 

P.DS  IWITH  THEC<UI  5:  "; 
£0^0  PRMT^-C'-trl  <•!.<•:=  X>  .:<^fl  2>HICH 

EST  HUMBEW:OUtfT.Cctil  5}  "; 
£0*0  PRINT"^Afl  I'Z-IC*  X:  .:.;«tii  £}THE  PLOV 

EP  »«ITH  THE  C;tfl  ?>  '•; 
Hm  PP.fNT"C<til  t)CC=  3K5  CM  WHICH 

EST  COUNT  WNS.  {'M  5}  "; 
ZO'iZ  PPINT".Mtrt  ityUKil  lyS-  '^KO:ii  'f} 

iM  5X20  WKtX'tfl  OX'itrl  1} 

£100  PRlMr^.W  2X3  <i*(  4omy:il  C«  ft^i 

£102  PP.IHT"C<tfl  ^5PPE5S  OHV  KEV  TO  HORT" 

£100  GETRI:IFR#s""THEH£^0O 

£$>1  RETURN 

3000  REM  DISPLRV  GAME 

3010  POKE3'^07^.030:PRINT":CLR} 

•:£  >.(*<  'UmKdt\  *>" 
5«)20  PR!NT"C3  $mM''Xi\  mH  fP4«} 

C.:itil  lOBa  f P'i<*X':^.il  ^JCCZ  #M<0 

.:<i:fl  7)F.:«^  fpa«X<^.fl  t>K2  5P«Kt5 
C<"tf!  "il'lil  n'MK'M  4}Kl  fP4«> 
.:<>il  5>4^£  f^^^.tH'M  ^Z'HZ  f PO<t> 
C^itfl  VAO  spa*:*}" 
3030  PRINT"a  f  P'K*X<^'I  ^I'Ca  *P'J»:0 

•I'l^il  l^na  fpa«:*X':^i«  3JK£  #P'i'.*>{':^^l  A}) 

^:l  *p.KftX':tri  5}Ka  «p«*xrt<i  ^x 
C£  f  P'i':*:<':tri  r/t  im  4:.io  c-i^^i  5: 

11  idii  i>}ilO  spacO" 

5040  PWNT"C3  fPflcO*:':^^!  7:M.:£  fp«0 
•I'l^il  *5N':£  fU'VAK'-M  1>0<£  fP'i<0 
•Ictii  5}P«:2  flf*V'\yA{\  4}0<£  5p.KO 
•Mtil  5:.R-:5  fp.i.:*X':':.l  7>15  iitiS  *:• 
14  'Kit.!  015  -Ii^i  5>1«&  i^  4>17  {<tM  53. 
I'^O  IP'K*}" 

5050  PRINT"J:5  #P'i<*X':trl  't:.S/£  #P4<*> 

•:':«!il  7:'T':£  fpa'.il-I'-.^.ii  ^:-U<£  fP«KtX':tfl  1JM 
•U  fP«K*}C':itii  55MK2  5pa.:*:««:.:til  45X 
•15  fP-J'.iX'i^.ft  "^M^  '^.W  7:.£0  {'i^rl  *:• 


21  C'ltrl  i:.22  carl  3}Z3  ca.l  4}24.:3  fpo.;^:." 
30(0  PRINT"<1  *p4«:iX>:t»'t  "'•'■'Ci  ipacv; 
0:r.r(  tjsCIT  «p4.:«iX<^'*'  7:.25  Ccfil  ?:.2( 

CI  *p4<«i}" 
3111  RETURN 
4000  REM  INPUT  :•*  PLOV 
4010  PRINT-C3  «ii  .l.>i.urO":FORP=1TON:PRINT" 

C2  •:.•«.•  up}C«:tri  7}PL0VER:C«ri  5} 
••N$fpr-c.:t»i  iy 

4020  INPUTWirPl 

4022  PRINT"C£  <•*»'  UPXSI  Ip'Kty'tPRINT" 

C20  «P4t:s:}" 
4030  F0RL=1T0LENrW|(P1) 

4040  NorP)=NorPi*rascfMiD|rm*fP]i,L.i)]i-(4) 

4050  HEXTrNEKT 

4111  RETURN 

5000  REM  SELECT  WINNER 

5010  W=0:W|="":FORP=1T0N 

5020  IFN0(P):UITHENW=N0fP):UJ$rN|(P3 

5030  NEST:P=N 

5040  PRINT"CCLR}C5  H^i  JOWfOCt  iifi  H^tit} 

C<til  5yUI|:PRINT"C4  <i*i-  fi^fitXCtrl  5} 

IS  THE  WINNER!" 
5050  FORT:OT011QO;NEXT 
5111  RETURN 
iOOO  REM  PLOV  OGQIN 
(010  PRINT"CCLRX10  USi  4ouinX««''  1> 

WOULD  VOU  LIKE  TO  PLOVC^  fp4<«>0C0IN?" 
(020  CETO|:IFO|r'"THEN(020 
(030  IFO|<:"VTHENPRINr'CCLRX10  <ii<  JOWr.> 

C2  Ci-sr  iifhOTHONfC  VOU  VERV  MU 

CH  FOR  PLQVINC  —  COODBVE*':C0TO(050 
(040  RETURN 
(050  FORPslTON 
(0(0  PRINTNICPV  '*;:IFPMONOP<NTHEN 

PRINT-  AND" 
(070  NEXT 

(020FORT=0TO4100:NEXT:PRINr'CCLRr:END 
7000  S=7($0:C:33400 
7010  FORXSOT021:FORV=OT022 
7020  R:(rn(RND(0)X7)«1 
7030POKES4};«22XV,S1:POKEC4>>22XV,R 
7040  riEKTiNEXT 
7050  RETURN 

READV. 


17    4kH4r4  httWOf  li"?? 


Due    to    some    confusion    here    at    dieHard    and    sowe    wisprintSj     there    are    a 
couple    of    different    subscription    rates    running    around    out    there.       So 
—    here    ^r&    the    correct    rates - 

single    issues-       51.75 

subscriptions^        $15.86       1    year,     16     issues 

The    Spinner:  S5    plus    S2    postage 

If    you    sent    in    too    Much    woney    for    your    subscription,    a    refund    check    is 
enc 1 osed . 

NoW/     welcome    to    ftiellarili        Me  like  to  think  of    ourselves    as    a    coMMOd ore 
support    magazine.       So    let    us    know   about    your    system;    send    letters    to 
the    Q    a    A    about    problems    you've    had;     let    us    know    solutions    you've    come 
up    with;    and    most    :  importantly ,    please    let    us    know   what    you    think    of 
ilieHard    and    how    X\}    make    it    better, 

Mia    C    Crosthwaitej     Subcriptions    itieHarii 
/T^^,  I'd  like  to  subscribe  to  dieHarii! 
Encioseci  is  n  check  or  Money  order  For  $15.3d. 
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